DNA  3964F-27 


o$ 

lO 

o 


LEVElf 


DNA  3964F-27 


THE  ROSCOE  MANUAL 

Volume  27:  Natural  Background  Radiation 

Science  Applications,  Inc. 

P.O.  Box  2351 

La  Jolla,  California  92038  g 

\ 

1  July  1 98C 


Final  Report  for  Period  1  January  1976—30  June  1979 


CONTRACT  No.  DNA .$01 -76-C-01 94 


APPROVED  FOR  PUBLIC  RELEASE; 
DISTRIBUTION  UNLIMITED. 


THIS  WORK  SPONSORED  BY  THE  DEFENSE  NUCLEAR  AGENCY 
UNDER  RDT5E  RMSS  CODES  B322076464  S99QAXHC06237  H2590D. 
B32207T464  S99QAXHC06237  H2590D,  B3220774G4  S99QAXHIT0426 
H2590D,  B322078464  S99QAXH 100426  H2590D.  AND  B322079464 
S99QAXH 100426  H2590D. 


Prepared  for 
Director 

DEFENSE  NUCLEAR  AGENCY 
Washington,  D.  C.  20305 


81  8  05  004 


Destroy  this  report  when  it  is  no  longer 
needed.  Do  not  return  to  sender. 


PLEASE  NOTIFY  THE  DEFENSE  NUCLEAR  AGENCY, 
ATTN-  STTI ,  WASHINGTON,  D.C.  20305,  IF 
YOUR  ADDRESS  IS  INCORRECT,  IF  YOU  WISH  TO 
BE  DELETED  FROM  THE  DISTRIBUTION  LIST,  OR 
IF  THE  ADDRESSEE  IS  NO  LONGER  EMPLOYED  BY 
YOUR  ORGANIZATION. 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OP  This  page  rlTh*n  Dmtm  FnimreOj 


REPORT  DOCUMENTATION  PAGE 

HEAD  INSTRUCTIONS 

BEFORE  COMPLETING  FORM 

1  REPORT  NUMBER  _  !j.  GOVT  ACCESSION  NO. 

|  B»lt3»6«-27  j lm~AtC2‘ 

3  RECIPIENT'S  CATALOG  NUMBER 

sM. _ 

4  title  'phi  Submit) 

THE  gOSCQE  1JANUAL* 

Volume  27:  Natural  Background  Radiation/. 

;■/ 

F] 

type  of  report  i  period  COvEPEO 
Final  Report,  for  ftwCrt  > 

1  Jan  76 — 30'  Jun  79,  ) 

ReRrgHmR<rgnarg:'HEPOT!TT»fMBER 

SA1-78-604-LJ-6  \ 

i  Author^*} 

'j  Daniel  A.  ' Hamlin 

Melvin  R. ySchoonover  N 

OR  GRANT  number/  sj 

J)NA  OO1-76-C-0194  ^ 

9.  PePrOBMl'NC  ftRGANIZATlON  NAME  UNO  ADDRESS 

Science  Applications,  Inc. 

P.0.  Box  2151 

La  Jolla,  California  9203B 

10.  PROGRAM  ELEMENT.  PROJECT  TASK 
AREA  ft  WORK  UNIT  NUMBERS 

Subtask  S99QAXHC062-37 

Sub  task  S99QAXHI00W6 

II  CONTROLLING  OFFICE  NAME  AND  ADDRESS  /  t 

Director  /  ' 

Defense  Nuclear  Agency 

Washington,  D.C,  20305 

in 

_ 

.REPORT  DATE 

1  July  1980  . 

12.'  NUMBER  OF  P  AGES  | 

344 

14  MONITORING  AGENCY  NAME  A  ApDRE5SfU  diltmrmnt  from  ConfrolI<n.t  OWe«) 

f  ij:::  '  1 

15-  SEC  uBlT  Y  Class.  /Of  thrjum&ort) 

UNCLASSIFIED.'  -? 

15*.  DECLASSIFICATION  OQWWGRADmG 
SCHEDULE 

16.  DISTRIBUTION  STATEMENT  (ol  thiw  Rmpott) 

Approved  for  public  release;  distribution  unlimited. 

17  DISTRIBUTION  STATEMENT  (o  1  f*  abstract  motored  in  Block  20.  II  different  from  Report) 

l»  supplementary  notes 

This  work  sponsored  by  the  Defense  Nuclear  Agency  under  RDT&E  RMSS  Codes 
B322076464  S99QAXHC06237  H2590D,  B322078464  S99QAXHI0C426  H2590D,  and 

B32207T464  S99QAXHC06237  H2590D,  B322079464  S99QAXHI00426  H2590D. 

B32207 7464  S99QAXH100426  H2590D, 

IS  KEY  WORDS  /’Cohitnu*  on  rcver*#  aid*  il  net.  mmamry  and  identify  by  block  number) 

ROSCOE  Directional  emlssivity 

Infrared  radiation  Solar  radiation 

Earth's  surface  characterization  Upwelling  natural  infrared  radi.  tion 

Bidirectional  reflectance-distribution  function 

Tlirec tional-hemispherical  reflectance 

20.  ABSTRACT  fConiinu*  or i  revwram  aide  If  naceaamry  and  Identity  by  block  pumb«r) 

NiThe  Natural  Background  Radiation  Module  computes  the  Earth's  natural 
upwelling  spectral  radiance  (from  2  to  5  pi}  by  averaging  over  paths  in  an 
Earth-tangent  cone  with  vertex  at  each  selected  altitude.  The  processes 
contributing  to  the  radiance  are  emission  from  air.  Earth’s  surface,  and 
clouds  and  reflection  of  solar  radiation  from  Earth's  surface  and  clouds; 
attenuation  is  by  molecules  and  aerosols.  The  Module  integrates  ROSCOE-1R 
models  for  («)  atmosphere,  (b)  atmospheric  thermal  emission,  (tr)  molecular 

DD  ,  1473  EOlTION  OF  1  NOV  65  IS  OBSOLETE 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  This  page  (**•"  Dm  I*  En(*rfrf. 


XASSTFTED 


lICUmTV  CLARIFICATION  OF  THIS  P 


SGlflPlM*  D*m  tmtrntw*} 


20.  ABSTRACT  (Continued) 

transmittance,  4d)  aerosols,  ie^T  clouds,  -(f)  Earth's  surface  characterization 
and  radiance,  solar  radiation,  and  (h -Y  upwelling  natural  radiation. 

Models  (£ir  (g) ,  and  (h)*  Are  documented  fully-. herein;' other  models  (three  of 
which  were  developed  by  other  organizations)  are  documented  here  mainly  in 
terms  of  functions  performed,  inputs,  and  outputs.  The  user  selects  the 
modeled  Earth's  surface  from  one  of  seven  categories  (with  possibly  an 
associated  descriptor) :  ^-(1 )  Lambertian  surface  (and  diffuse  reflectance). 
Jit)  wind-ruffled  water  (and  wind  speed)  ,  _{ 3)  snow  (and  its  age  parameter), 
^(4)  sand,  (5)  soil,  J.6)  foliage,  and  (7)  urban  material  (and  degree-of- 
urbanizatfon  parameter).  ’ 

A 


Accession  For 

~ims 

DT1C  TAB 
U’  .announced 

justification- 


By — ■ — - - ™" 

Distributi on ' 

Avail'-’  ■  ‘ 

-  ..or 

IDlst  1'P  ’ 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THU  NAGE/W?i*n  Dmtm  Enf»r*d) 


Conversion  factors  for  U  .  S.  customary 
to  metric  (SI)  units  of  measurement . 


To  Conver*  From 

To 

Multiply  Tty 

angstrom 

meters  (m) 

1.000  0CK*  X  E  -10 

atmosphere  (normal) 

kilo  pascal  (kPa) 

1  013  25  X  F.  *2 

bar 

kilo  pascal  (kf'a) 

1  000  000  X  E  +2 

barn 

meter2  (m“) 

1  000  000  X  E  -2S 

British  thermal  unit  ulM.-rmcx.bc mica l) 

joule  i.l) 

1.054  350  X  E  +  3 

calorie  (dientiorhemical) 

Joule  (J) 

4  1H4  000 

cal  (thermochern'caO/cm2 

mega  joule/m2  (MJ/m2) 

4  184  000  X  K  -2 

curie 

•gig  a  bccQuvtel  (GBq) 

3.  700  000  X  F.  4  1 

degree  (angle) 

radian  (rad) 

)  .  745  329  X  E  -2 

degree  Fahrenheit 

degree  kelvin  (K) 

-  <1*1  .  <»9.67>/1.8 

electron  voH 

joule  (J) 

1  602  19  X  F  -19 

joule  (J) 

1 . 000  000  X  E  -7 

erg/scCond 

watt  (W) 

1. 000  000  X  E  -7 

foot 

meter  (m) 

3  O48  000  X  V.  1 

fool -pound -force 

joule  (J) 

1  355  61 H 

gallon  (t.  S.  liquid) 

meter3  <m3) 

3  765  412  X  K  5 

inch 

meter  (ml 

2.540  000  X  E  -2 

)erh 

joule  (J) 

1  OQO  000  X  K  -  9 

joule  A>  log  ram  (J/kg)  |  radiation  dose 
absorbed) 

Gray  (Gy) 

1.000  000 

kilotuns 

toraj'.-ules 

4.  163 

kip  (1000  IbO 

newton  (N) 

■4.448  222  X  E  »3 

kip/inch2  (ksi) 

kilo  pascal  (kPa) 

fi  894  757  X  E  *3 

ktip 

newton  -sec<**i/m2 
<N-a/m“) 

1 .  COO  600  X  E  «  2 

micron 

meter  (m) 

l  ooo  ooo  x  t  -r* 

mil 

meter  (m) 

2  540  Ofm  X  K  -5 

mile  (international) 

mctei  (m) 

1  609  34  4  X  E  ♦  3 

ounce 

kilogram  (kg) 

2.  634  952  X  l  -J 

pound -lorce  (lbs  avoiidupois) 

newton  (N) 

4. 448  222 

pound -forte  uicb 

new  tor  -me'er  lN-ni) 

1  129  84»  X  F.  -1 

pound -force /inch 

newton/metcr  (N/m) 

1  751  269  X  K  4  2 

pound  -force/! oot“ 

kilo  postal  (kPa) 

4.  766  02G  X  K  -2 

pound -force /inch2  (psi) 

kilo  pascal  (kPa) 

6  894  757 

ptxjml  mass  (Ibin  avoirdupois) 

kt  lug  ram  (kg) 

4 . 535  924  X  K  1 

pound -mass -foot2  (moment  of  inertia) 

k  i  log  ram  -mete  i 2 
(kg.pi-) 

4.214  011  X  E  -2 

pcMtnd  -mas  *  /loot 

kill  gram /meter 
(kg/ma) 

1.  601  646  X  F  4  1 

rad  (radii linn  dose  absorbed) 

"Cuaj  (Gy) 

1.000  000  x  4  -2 

roentgen 

coulmiib/kilogram 

<C/kg) 

2  $79  760  X  K  4 

•hake 

second  <k) 

1  000  000  X  V'  8 

•  lug 

kilapr.  iTi  ikg) 

1  459  .190  X  E  *  1 

tort  (mm  Hg,  0“  O 

kilo  pascal  (kPa) 

1  333  22  X  E  -1 

•The  becquerM  (Kt^l  is  the  SI  unit  of  radioactivity  ,  1  iXj  -  1  cvenl/s 
•  •The  Gray  ifiy)  is  the  .si  «mt  ot  r.«nai.'»n. 

A  more  complete  list-np;  lonvrrsmns  ma*  be  [ourri  in  "Metric  Practice  Guido  K  38Q-74,*' 
American  Sioiirty  li»i  •  filini'  and  M-ilon.-il*, 


1 


TABLE  OF  CONTENTS 


Section  Page 


CONVERSION  TABLE - - - -  - - - -  1 

LIST  OF  ILLUSTRATIONS  - - - - - -  5 

LIST  OF  TABLES - - - - -  ft 

1  INTRODUCTION  AND  OVERVIEW  - - - 11 

2  EARTH  SURFACE  CHARACTERIZATION:  GENERAL  AND  NON-WATER  SURFACES  -  -  19 

2-1  INTRODUCTION  AND  SUMMARY - - 19 

2-1.1  Requirements  tor  the  Model  --------------  19 

2-1.2  Approach  -----------------------  19 

2-1.3  The  Bidirectional  Reflectance-Distribution 

Function  (8RDF)  --------------------  21 

2-1.4  The  Di rectional -Hemi spherical  Reflectance  -------  23 

2-1.5  The  Directional  Emissivity  --------------  25 

2-1 .6  Summary  of  Parameters  for  the  BRDF  ----------  26 

2-1.7  The  Surface  Temperature  ---  .  -------  26 

2-2  EVALUATION  OF  SPECTRAL  DATA  FOR  THE  HRDF  ----- . 30 

2-2.1  Snow  -  . . . - . 30 

2-2.2  Sand  -  - . -  - . 31 

2-2.3  Soil  -  -  -  . . . 34 

2-2.4  Vegetation  -----  .  ----------  34 

2-2.5  Urban  Materials  -  --  --  --  - . ----  -  37 

2-3  EVALUATION  OF  DIRECTIONAL  DATA  FOR  THE  BRD~ . 37 

2-3.1  Snow  ---------  .  -------  37 

2-3.2  Sand . -  - . -  40 

2-3.3  Soil  -  - - .  -  -  - . -  4? 

2-3.4  Vegetation  ----------------------  44 

2- 3.5  Urban  Materials  --------------------  46 

2-3. 5.1  Concrete  and  Asphalt  -  --  --  --  --  --  --  46 

2- 3. 5. 2  Urban  Geometry  Parameters  -  --  --  --  --  -  50 

2-4  INTEGRATION  OF  THE  BRDF - - - -  55 

2- 5  SUBROUTINE  ESURF . -  - . . 58 

3  EARTH  SURFACE  CHARACTERIZATION:  WATER  SURFACE  -  -  63 

3- 1  RADIANCE  FROM  A  WIND-RUFFLED  WATER  SURFACE  -  63 

3- 1.1  Basic  Cox-Munk  Formula  ----------------  63 

3-1.2  Slope  Distribution  Function  --------------  64 

3-1.3  Relation  Between  Slope  Variance  and  Wind  Speed  -  -  -  -  64 

3- 1. 3. 1  Cox-Munk  Relation  (regardless  of  direction)-  -  64 

3-1. 3. 2  Some  Useful  Wind-Related  Conversion  Factors-  -  55 

3-1. 3. 3  Limitations  on  the  Cox-Munk  Relation  -----  68 

3-2  REFLECTION  GEOMETRY  FOR  A  SPHERICAL  EARTH  -  -  68 

3-3  REFLECTANCE  AND  EMISSIVITY - - 70 

3-3.1  The  Bidirectional  Reflectance-Distribution 

Function  (BRDF)  --------  .  -------  70 

3-3.2  The  Di recti onal -Hemi spheri cal  Reflectance  -------  72 

3-3.3  The  Directional  Emissivity  --------------  73 

3-3.4  Fresnel  Reflectance  of  Water  -  --  --  --  --  --  --  73 


2 


TABLE  OF  COMTE MTS  (Continued) 


Section  Page 

3-3. 4.1  Introduction  -----------------  73 

3-3. 4. 2  Formulas  -  --  --  --  --  --  --  --  --  --  73 

3-3. 4. 3  Complex  Index  of  Refraction  of  Water  -----  75 

3-4  SLOPE -SHADOW I  MG  FACTOR - - - 75 

3-5  SPECIAL  CASES - 77 

3-5.1  Location  of  Specular  Point  for  Quiet  Surface 

(no  wind)  cn  Spherical  Earth,  Given  Source  and 

Detector  Locations  ------------------  77 

3-5. 1.1  Algebraic  Equations  for  Specular  Point  -  -  -  -  77 

3-5. 1.2  Iterative  Solution  of  Soecul ar-Point 

Equations  ------------------  32 

3-5. 1.3  Angle  of  Incidence  and  Reflection  ------  34 

3-5. 1.4  Geographic  Coordinates  of  Specular  Point  -  -  -  31 

3-5.2  Radiance  and  3RDF  for  Soecular  Reflection  from 

Smooth  Water  ---------------------  34 

3-5.3  A  Limiting  Form  of  3asic  Cox-Hunk  Formula  -------  35 

3-5.4  Relation  Between  Radiances  from  Smooth-  and 

Rough-Water  Surfaces  -----------------  35 

3- 6  SUBROUTINES  FOR  CHARACTERIZATION  OF  WATER  SURFACE  -  S3 

3-6.1  Subroutine  GL1TTR  -------  .  -----  33 

3-6.2  Subroutine  CAHGLE  -------------------  33 

3-6.3  Function  ERF  ------  .  -------  93 

3-6.4  Subroutine  FRESNL  -------------------  93 

3- 6.5  Subroutine  GCRCLE - - - -  - - 94 

4  SOLAR  RADIATION - 97 

4- 1  INTRODUCTION . . - . 97 

4- 1.1  Requirements  for  the  Model  --------------  97 

4- 1.2  Model  Function  ----------  .  97 

4-2  DATA  BASE - 9/ 

4-3  SUBROUTINE  SOLRAO . . . -  10 3 

4- 4  SOME  CONVERSION  RELATIONS - - - - - 103 

5  EARTH  SURFACE  RADIANCE  -  -----  .  .  --11U 

5- 1  INTRODUCTION . 110 

5-2  SUBROUTINE  5URRAD  - - -  - - -  -  -  - . 110 

5-3  SUBROUTINE  RIMOUT - ll7 

5- 3.1  Purpose  -  --  --  --  --  --  --  --  --  --  -  --  --  H7 

5-3,2  Derivations  ----------------------  lio 

5-3.2. 1  Zenith  Angle  of  Sun  -------------  113 

5-3. 2. 2  Zenith  Angle  of  Detector  -  --  --  --  --  --  hm 

5-3.2. 3  Azimuth  Angle  of  Reflected  Ray  -  - . 123 

5-4  OTHER  ROUTINES  IN  EARTH  SURFACE  RADIANCE  MODEL  -  .  -  -  123 

5-4 . 1  SM  Routines  ('SUR^  SOI  RAD,  3nXY7)  -  -  -  -  ----- 
5-4.2  Visidyne,  Inc.  Routine  ( AEROSOL )  .  ----- 


3 


TABLE  OF  CONTENTS  (Continued) 


Section  Page 

5- 4.3  G.E.  Tempo  Routines  (ACCUM,  DOT,  FRAC,  PATH, 

PLANCK,  SEGMENT,  STEP,  STEPS,  S'JBVEC,  UNITV, 

VL I N  ,  XMIT  ) - 129 

6  UPWELLING  NATURAL  RADIATION - - - -  138 

6-1  INTRODUCTION  -  - - 133 

6- 1.1  Reouirement  ----------------------  138 

6-1.2  Approach  -----------------------  138 

6-1.3  Dependence  on  Other  Models  --------------  140 

6-2  SUBROUTINE  UPWELL - 141 

6-2.1  Formulas  -----------------------  141 

6-2. 1.1  Geometry  -------------------141 

6- 2. 1.2  Radiance  -------------------  145 

6-2.2  Input  and  Output  Variables  --------------  149 

6-2.3  CaTcul ational  Steps  ------------------  149 

6- 3  OTHER  ROUTINES  IN  JPKELLlMG  NATURAL  RADIATION  MODEL - -  -  164 

6-3.1  SAI  Routines  ---------------------  164 

6- 3.2  G.E.  Tempo  Routines  (TRNSCO,  ATMRAD ,  TRANS )  .  163 

7  NATURAL  BACKGROUND  RADIATION  HBR)  MODULE  .  .  17b 

7- 1  INTRODUCTION . . - . -  -  176 

7-2  GENERAL  COOING  INFORMATION  FOR  N8R  MODULE  -  - . 177 

7- 2.1  Routines  in  N3R  Module  ----------  .  177 

7-2.2  Calling  Structure  of  Routines  -------------  177 

7-2.3  Description  of  Routines:  Function  Performed, 

Originator,  and  Locations  of  Listing  and 

Input-Output  Table  -  -----------------  179 

7-2.4  Routines,  Common  Slocks,  and  Common-Block 

Variables  -----------------------  194 

7- 2.4. 1  Routines  and  Common  Blocks  ----------  194 

7-2. 4. 2  Definitions  of  Common-Block  Variables  -  -  -  -  194 

7-3  DRIVER  PROGRAM  DRVUP.N  AND  INITIALIZING  ROUTINES  - - 20? 

7-3.1  Calcul  ational  Steps  in  Program  JRVUPVI  -  --  --  --  --  2U7 
7-3.2  Subroutine  SETALT  -------------------  203 

7-3.3  Other  Initialization  Routines  -------------  214 

7-3.3. 1  DSA  System  ------------------  214 

7-3. 3. 2  SAI  Routines  (ATMOSU,  CLOUDO)  -  -  214 

7-3. 3. 3  G.E.  Tempo  Routines  (TRANSIT ,  SHELLS)  -----  214 

7-4  INTEGRATION  OF  NB'R  MODULE  INTO  R0SC0E-1R - - 221 

7-4.1  General  ------------------------  221 

7-4.2  Subroutine  UPWEll  --------------  -  -  -  -  223 

3  LISTING  OF  SELECTED  ROUTINES  - - - - -  .  22b 

9  REFERENCES  -------  --------------------334 


4 


-1ST  IF  ILUJST NATIONS 


F  i  gure  p  agj? 

1- 1  Geometry  tn  illustrate  the  computation  of  upwelHng  natural 

radiation  for  one  viewing  direction  v?  -  --  --  --  --  --  --  --  12 

2- 1  SDectral  diffuse  reflectance  of  winte-  snow  and  ice  and  sumer 

ice  (2  to  5  am)  -  --  --  --  --  --  --  - . -  -  -  -  -  31 

2-2  Spectral  reflectance  for  (1)  sand,  (21  soil,  (31  asphalt, 

(4)  brick,  and  (5)  concrete  --------------------  3? 

2-3  Spectral  reflectance  for  sand,  ^  -----------------  33 

2-4  Spectral  reflectance  for  soil,  -----------------  35 

2-5  Spectral  reflectance  for  vegetation,  --  .  -------  35 

2-6  Spectral  reflectance  for  sone  urban  materials,  0^  ---------  30 

2-7  Relative  BRDF  for  snow  ----------------  .  41 

2-3  Relative  3RDF  for  gypsum  sand  -  --  -- -  -  -  -  -  43 

2-9  Relative  3RJF  for  dirt - - - - . 45 

2-10  Relative  SROf  for  vegetation . ------ . 4') 

2-1  la  Relative  BROF  for  concrete  -  --  --  --  -- . -------  53 

2 -lib  Relative  3R0F  for  asphalt  ---------------------  54 

2- 12  Relationships  between  the  routines  in  the  Sarfh  Surface 

Charade;  i-atinn  '‘ode1  -  -  - . --------  -  6!» 

3- 1  Relation  between  the  R‘1S  slope  and  wind  speed  -  --  --  --  --  --  5n 

3-2  Relations  between  sea-states,  Beaufort  numbers,  and 

wi nd  speed  -  --  --  --  --  --  --  --  --  --  --  --  --  --  --  p  ’ 

3-3  Spherical  geometry  for  determining  specu1  ar  point  -  --  --  --  --  ’•> 

3-4  Plane  geometry  for  deterninq  specular  point  ------------  "0 

3-5  jecunetry  for  simple  estimate  of  angular  1  3dius  of 

glitter  pattDrn  -  --  --  --  --  --  --  --  --  --  --  --  --  -  v.r 

3-6  Information  flow  within  Subroutine  GLITTR  -  --  --  --  --  --  --  ‘1 


LIST  OF  ILLUSTRATIONS  (Continued) 

F i gure  Rage 

3- 7  Earth  geometry  used  in  deriving  formulas  for 

Function  C ANGLE  and  Subroutine  QCRCLE  -  ----------  92 

4- 1  5o)ar  spectral^ i rradi ance  from  2  to  5  um 

(units  of  m  am'1)  -  --  --  --  --  -  -  --  --  --  --  --  --  JOO 

4-2  Solar  spectral  irradaance  from  2  to  5  am 

(units  of  photon  cm*  sec"  am*1)  -----------------  104 

4-3  Solar  spectral  i rradi ancefrom  2  to  5  am 

(units  of  photon  cm  sec  1/cm~I)  -  --  --  --  --  --  --  --  --  j.05 

4-4  Solar  spectral  grradiance  from  2  to  5  am 

(units  of  «'  .  . . .  106 

4- 5  Flow  chart  for  Subroutine  SOLRAD  ------------------  107 

5- 1  Routines  called  directed  from  the  principal  routine 

(SURRAD)  in  the  Earth  Surface  Radiance  Model  -----------  -  111 

5-2  Flow  chart  for  Subroutine  RINQUT  ----------------  --  1 21 

5-3  Geometry  fcr  detector  zenith  angle  at  Point  P  -----------  122 

5-4  Geometry  for  azimuth  angle  of  reflected  ray  ------------124 

5- 5  Geometry  for  conversion  of  geographic  cocdi nates 

to  Eartb-centerPd  Cartesian  coordinates  --------------  130 

b-i  Geometry  for  characteristic  points  on  Earth  surface  --------  142 

6- 2  Geometry  and  ingredients  for  radiance  calculation  alono 

path  DV  without  clouds  -----------------------  14b 

6-3  Geometry  and__ingredients  for  radiance  calculation  along 

path  (PC  +  CV)  with  clouds  oelow  12  km  ---------------  147 

6- 4  Routines  called  directly  from  tha  principal  routine 

(CPWELL)  in  the  Upwelling  Natural  Radiation  Model  --------  155 

7- 1  Relationships  between  the  routines  in  the  N3R  Module  --------  130 

7-2a  Altitude  dependence  of  spectral  radiance  (2.0  to  2.5  um) 

for  r.adi  r-1  ooki  ng  sensor  -  --  --  --  --  --  --  --  --  --  --  -  2 10 

7-2b  Altitude  dependence  of  spectral  radiance  (2.3  to  3.2  jm) 

for  nadi  r-l  nolri  ng  sensor  -  --  --  --  --  --  --  --  --  --  --  -  211 


6 


LIST  OF  II'  '.I RATIONS  (Continued) 
e igur- 

/-2c  Altitude  dependence  of  spectral  radiance  (3.5  to  5.j  -h) 
for  nadir-looking  sensor 

7-3  Wavelength  dependence  of  spectral  radiance  (2.0  to  5.0  -m) 
at  0-,  5-,  and  50-km  altitude  for  nadi r-1 ooki ng  sensor  -  - 


Page 


212 


215 


7 


LIST  OF  TABLES 


T  able  Page 

1- 1  Models  integrated  into  the  N3R  Module  ---------------  n 

2- 1  Summary  of  reflectance  data  for  the  Earth's  surface 

features  -------------------  .  20 

2-2a  Spectral  and  directional  parameters  for  characterization 

of  the  BRDF  for  Earth  surface  materials  --------------  27 

2-2b  <fr(0,0,v)>  and  azimuthal  dependence  of  f  r  ( 0 ,0  ,  i. )  -  --  --  --  --  29 

2-3  Normal - i nc idence--heroi spherical  reflectance  for  Earth 

surface  materials  -  --  --  -- . ----- . -  -  29 

2-4  Spectral  reflectance  of  sand,  04  -----------------  33 

2-5  Spectral  reflectance  of  soil,  -----------------  35 

2-6  Spectral  reflectance  of  some  urban  materia' s,  -  --  --  --  --  33 

2-7  Relative  directional  reflectance  of  snow  for  solar 

zenith  angles  of  e.=64  68,  84  deg,  in  the  spectral 

range  of  0.2  to  4.0  am  -  --  --  --  --  --  --  -- .  43 

2-8  Relative  directional  reflectance  of  gypsum  sand  for 

solar  zenith  angles  of  6-=21,  43,  59  deg,  in  the 

spectral  range  0.2  to  4.0  um  -------------------  42 

2-9a  Directional  luminous  reflectance  of  dirt  for  solar 

zenith  angles  6j  ;  54  deg  -  --  --  --  --  --  --  --  --  --  --  44 

2-9b  Relative  directional  luminous  reflectance  of  dirt  for 

solar  zenith  angles  54  deg  -  --  --  -- . ------  44 


2-10  Relative  directional  luminous  reflectance  of  several 

types  of  vegetation  ------------------------  41 

2  1 1  a  Directional  reflectance  data  for  concrete  -  --  --  --  --  --  --  50 

2-ilb  Directional  reflectance  data  for  asphalt  ------------  51 

2-llc  Relative  BRDFs  for  concrete  and  asphalt  -------  .  --  52 

2-12  Input  and  output  variables  for  Subroutine  ESURF  ----------  ou 


3-1  Input  and  output  quantities  for  reflection  viewed 
from  a  detector  ----------------- 


LIST  OF  TABLES  (Continued) 

Table  Page 

3-2  Input  and  output  variables  for  Subroutine  GLITTR  .  85 

3-3  Input  and  output  variables  for  Function  CANGLE  ----------  93 

3-4  Input  and  output  variables  for  Subroutine  FRESNL  ---------  94 

3- 5  Input  and  output  variables  for  Subroutine  GCRCLE  ---------  96 

4- 1  Solar  spectral  irradiance  (2  to  5  um)  ---------------  98 

4- 2  Input  and  output  variables  for  Subroutine  SOLRAD  ---------  103 

5- 1  Input  and  output  variables  for  Subroutine  SURRAD  ---------  H2 

5-2  Input  and  output  variables  for  Subroutine  RIMOUT  ---------  119 

5-3  Input  and  output  variables  for  Subroutine  GEOXYZ  ---------  131 

5-4  Input  and  output  variables  for  Subroutine  AEROSOL  ---------  13 1 

5-5  Input  and  output  variables  for  Subroutine  PATH . -  -  -  132 

5-6  Input  and  output  variables  for  Subroutine  PLANCK  --  .  133 

5-7  Input  and  output  variables  for  Subroutine  SEGMENT  ---------  134 

5-8  Input  and  output  variables  for  Subroutine  STEP  ----------  135 

5- 9  Input  and  output  variables  for  Subroutine  STEPS  ----------  136 

6- 1  Geometrical  auantities  of  interest  for  Point-V  altitudes 

of  1,  1.0,  and  100  km  -  --  --  --  --  --  --  --  --  --  --  --  144 

6-2  Input  and  output  variables  for  Subroutine  UPNELL  ---------  150 

6-3  Input  and  output  variables  for  Subroutine  AGAGEQ  ---------  166 

6-4  Input  and  output  variables  for  Subroutine  GEOREA  ---------  166 

6-5  Input  and  output  variables  for  Subroutine  GEOTAN  ---------  167 

6-6  Input  and  output  variables  for  Subroutine  REATAN  ---------  167 

6-7  Input  and  output  variables  for  Subroutine  TANGEO  ---------  168 

a-8  Input  and  output  variables  for  Subroutine  TRNSCO  ---------  169 

6-9  Input  and  output  variables  for  Subroutine  ATMRAD  ---------  17 1 


9 


LIST  OF  TABLES  (Continued) 

T  abl  e  Page 

6- 10  Input  and  output  variables  for  Subroutine  TRANS  ----------  173 

7- 1  Guide  to  modules  integrated  into  the  NBR  Module  ----------  176 

7 -2a  Routines  in  the  NBR  Module  --------------------  178 

7 -2  b  Routines  from  the  DSA  System  used  in  the  NBR  Module  -  --  --  --  -  179 

7-3a  Description  of  routines  in  NBR  Module:  function 

performed,  originator,  and  locations  of  listing  and 

input-outout  table  ------------------------  133 

7-3b  Description  of  DSA  routines  called  directly  from 

the  NBR  Module - - .  193 

7-4  Matrix  of  routines  and  common  blocks  ---------------  195 

7-5  Wavelengths  used  in  developing  Subroutine  SETALT  ---------  209 

7-6  Bin  altitudes  selected  for  Subroutine  SETALT  -----------  213 

7-7  Input  and  output  variables  for  Subroutine  SETALT  ---------  213 

7-8  Input  and  output  variables  for  Subroutine  TRANSB  -  .  --  216 

7-9  Input  and  output  variables  for  Subroutine  SHELLS  ---------  220 

7-10  Guide  to  integration  of  NBR  Module  into  ROSCOE-IR  ---------  222 

7-11  Input  and  output  variables  for  Subroutine  UPWELT  ---------  225 

3-1  Index  to  routines  with  FORTRAN  listing  in  Volume  27--------  226 


10 


SECTION  1 


INTRODUCTION  AND  OVERVIEW 


The  Natural  Background  Radiation  (NRR)  Module  is  defined  to  be  a 
computer  program  which  integrates  nine  ROSCOE-1R  models  (see  Table  1-1)  into  a 
consistent,  stand-alone  module  for  the  purpose  of  developing  and  testing  the 
capability  to  compute  the  natural  upwelling  spectral  radiance  as  o  function  of 
altitude.  The  relationships  of  the  routines  in  the  NBR  Module  should  be 
similar  to  the  relationships  of  the  routines  in  the  ROSCOE-IR  Program  except 
for  its  use  of  overlays  and  a  broader  use  of  the  GRC  Dynamic  Storage  Alloca¬ 
tion  (DSA)  System  [SP-78]. 

The  upwelling  radiance  will  normally  be  a  function  of  direction; 
however,  for  the  anticipated  applications  it  is  expected  that  a  spatially- 
averaged  value  will  be  adequate.  (If  later  studies  show  that  direction- 
dependent  values  are  required,  relatively  minor  code  changes  can  be  made  to 
retrieve  the  more  detailed  information  now  generated  to  derive  the  spatially- 
averaged  value. ) 


Computation  of  the  upwelling  radiance  may  be  described  with  the  aid 
of  Figure  1-1.  Point  V  is  at  altitude  z  above  a  selected  reference  origin. 


Table  1-1.  Models  Integrated  into  the  NBR  Module. 


Title 


Ambient  Atmosphere 
Atmospheric  Aerosols 
Natural  Clouds 
Atmospheric  Thermal  Emission 
Molecular  Transmittance 
Earth  Surface  Character!' zation 
Earth  Surface  Radiance 
Upwell ing  Natural  Radiation 
Solar  Radiation 


Model 

Number 

Devel oper 

ROSCOE  Manual 
Vol ume  Number 

la 

SAI/LJ 

U 

t — i 

1 

*3 

lc, 19:1c 

VI 

25 

Id, 19: 1 d 

SAI/PA 

24 

20  b 

GET 

28,31 

24d 

GET 

28,31 

23a 

SAI/LJ 

27, Sect. 2, 3 

23b 

SAI/LJ 

27, Sect. 5 

23c 

SAI/LJ 

27  .Sect. 6 

23e 

SAI/LJ 

27, Sect. 4 
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Figure  1—1 .  Geometry  to  illustrate  the  computation  of  upwelling  natural  radiation  for  one  viewing 
direction  VP. 

V.  For  a  (fictitious)  detector  at  Point  V  viewing  in  the  direction  of  Point 
P  on  the  ground,  the  processes  we  include  in  computing  the  radiance  in  the 
direction  of  PV  may  be  separated  into  two  cases: 

A.  No  Clouds 

1.  Air  emission  between  V  and  P,  attenuated  by  molecules  and 
aerosols. 

2.  Surface  emission  at  Point  P  (from  any  of  the  seven  modeled  sur¬ 
face  materials),  attenuated  by  molecules  and  aerosols  along  PV. 


3.  Surface-reflected  solar  radiation,  attenuated  by  molecules  and 
aerosols  along  the  total  path  (SP  +  PV). 

B.  With  Clouds 

(Highest  cloud  tops  are  at  or  below  Point  C  at  12-km  altitude.  The 

first  three  processes  below  are  weighted  by  the  probability  the  line- 

of- sight  along  VC  intercepts  clouds.) 

1.  Air  emission  between  V  and  C,  attenuated  by  molecules  and 
aerosols. 

2.  Surface  emission  from  cloud  tops  at  or  below  12  km,  attenuated  by 
molecules  and  aerosols  along  CV. 

3.  Cl oud-refl ected  solar  radiation,  attenuated  by  molecules  and 
aerosols  along  the  total  path  (SC  +  CV). 

4.  Processes  1  and  2  from  the  no-cloud  case,  weighted  by  the  prob¬ 
ability  of  a  one-leg  cloud-free  1 ine-of-sight  along  VP. 

5.  Process  3  from  the  no-cloud  case,  weighted  by  the  probability  of 
a  two- leg  cloud- free  path  along  the  broken  path  (VP  +  PS). 

In  view  of  the  above-listed  contributions  to  the  radiance,  it  is  easy 
to  recognize  the  need  for  integrating  so  many  models  into  the  NBR  Module. 

Five  of  these  models,  as  indicated  in  Table  1-1,  have  been  reported  in  other 
volumes.  The  remaining  four  models  are  documented  in  this  volume.  To  this 
documentation  we  first  provide  an  overall  guide,  followed  by  more  detailed 
descriptions. 

The  Earth  Surface  Characterization  Model  is  described  in  Sections  2 
and  3.  Section  2  contains  general  information  and  details  for  non-water  sur¬ 
faces;  the  details  for  water  surfaces  are  given  in  Section  3.  The  Solar  Radia¬ 
tion  Model  is  described  in  Section  4  and  the  Earth  Surface  Radiance  Model  in 
Section  5.  In  terms  of  such  models,  the  Upwelling  Natural  Radiation  Model  is 
presented  in  Section  6  and  overall  coding  information  for  the  stand-alone  NBR 
Module  in  Section  7. 

In  Sections  2  and  3  we  present  the  ROSCOE-IR  model  (23a)  for  the 
Earth  surface  characterization,  in  the  spectral  range  from  Z  to  5  ™  (or  5,000 
to  2,000  cm  ").  The  principal  routine  in  the  model  is  Subroutine  ESURF  which 
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(with  auxiliary  routines  for  water  surfaces)  provides  the  (1)  monochromatic 
bidirectional  reflectance-distribution  function  (BRDF),  monochromatic  direc¬ 
tional  emissivity,  and  (3)  temperature  of  the  Earth's  surface  at  the  inter¬ 
section  point  of  the  optical  line-of-sight.  Since  the  surface  category  is  not 
automatically  correlated  with  the  geographic  position,  the  user  must  select 
one  of  the  seven  categories  provided  plus  an  associated  descriptor  where  appro¬ 
priate:  (1)  Lambertian  surface  (and  diffuse  reflectance),  (2)  water  (and  wind 
speed),  (3)  snow  (and  its  age-parameter),  (4)  sand,  (5)  soil,  (6)  foliage,  and 
(7)  urban  material  (and  degree-of-urbanization  parameter).  The  user  calls 
Subroutine  ESURF  with  the  zenith  angle  of  the  solar  ray  at  the  intersection 
point,  the  direction  of  the  detector  at  the  intersection  point  (specified  by 
the  zenith  angle  and  the  azimuth  angle  relative  to  the  principal  plane  of  the 
solar  ray),  the  altitude  at  the  intersection  point,  the  surface  material  (and 
associated  descriptor)  at  the  intersection  point,  and  the  wavelength. 

The  BROF  for  each  of  the  surfaces  (except  water)  is  computed  from  an 
invented  analytic  expression  containing  spectral  and  directional  parameters 
which  have  been  fitted  to  the  (meager)  available  data,  presented  in  Section  2. 
Also  presented  are  derivations  of  directional-hemispherical  reflectance  from 
the  BRDF  and  the  directional  emissivity. 

For  a  water  surface,  Subroutine  ESURF  calls  Subroutine  GLITTR  to 
obtain  the  BRDF  and  directional  emissivity.  Subroutine  GLITTR,  its  auxiliary 
routines,  and  the  underlying  model  for  the  glitter  from  a  wind- ruffled  water 
surface  are  described  in  Section  3.  The  model  is  based  largely  on  the  work  of 
Cox  and  Hunk  [CM-54],  including  (1)  the  basic  equation  relating  the  glitter 
radiance  to  the  wave-facet  slope-probability  distribution,  (2)  a  two-dimen¬ 
sional  isotropic  normal  distribution  for  the  slope-probability  distribution, 
and  (3)  a  linear  relation  between  the  slope  variance  and  the  wind  speed. 
Modifications  and  extensions  of  the  Cox-Munk  work  include  (I)  using  the 
Levanon-derived  [Le-71b]  equations  for  the  slope  and  angle  of  incidence  re¬ 
quired  at  a  viewed  point  to  provide  a  glint,  in  terms  of  the  position  of  an 
arbitrary-altitude  detector  viewing  a  spherical  Earth,  instead  of  the  equa¬ 
tions  for  a  flat  Earth  as  (appropriately)  used  by  Cox  and  Munk,  (2)  evaluating 
the  Fresnel  equations  for  the  specular  reflectance  in  terms  of  t'ne  complex 
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index  of  refraction  of  water  for  the  2-  to  5-um  region,  instead  of  the  visible 
region,  (3)  incorporating  a  shadowing  factor  (based  on  the  work  of  Saunders 
[Sa-67,  Sa-67a,  Sa-68c]  but  extended  to  permit  a  "bistatic"  dependence  on  the 
zenith  angles  of  both  the  incoming  and  outgoing  rays)  which  multiplies  the 
slope  probability  distribution  and  takes  account  of  shadowing  of  some  slopes 
by  others  for  illuminating  and  viewing  near  the  horizon,  and  (4)  providing  a 
solution  (by  iteration)  for  the  location  of  the  specular  reflectance  point  on 
a  spherical -Earth  water  surface  that  is  smooth  for  zero  wind  speed.  The  direc¬ 
tional  emissivity  of  the  wind-ruffled  water  surface  is  approximated  by  that 
for  a  smooth  water  surface  owing  to  the  complex  geometry  which  prevents  analy¬ 
tically  integrating  the  BRDF  over  a  hemisphere. 

In  Section  4  we  present  the  ROSCOE-IR  model  (23e)  for  the  solar  spec¬ 
tral  irradiance  at  the  top  of  the  atmosphere,  in  the  spectral  range  from  2  to 
5  urn.  The  input  data  to  the  model  ,  taken  to  be  the  NASA  data  adopted  by  the 
-American  Society  of  Testing  and  Materials,  have  been  fitted  by  piecewise- 
continuous  power- law  expressions.  The  model  may  be  called  with  either  wave¬ 
length  (jm)  or  wavenumber  (cm-*)  and  an  index  which  selects  the  output  spec¬ 
tral  irradiance  in  any  of  four  forms.  Therein  are  presented  derivations  and  a 
flow  o  gram  of  Subroutine  SOLRAD. 

In  Section  5  we  present  the  ROSCOE-IR  model  (Z3b)  for  the  Earth  sut - 
face  radiance.  The  model  provides  two  components  of  the  radiance  directed 
along  the  path  PV  in  Figure  1-1:  (1)  thermal  radiation  emitted  at  Point  P  and 

(2)  solar  radiation  reflected  at  Point  P.  Strictly,  the  surface-reflected 
solar  radiation  is  actually  provided  in  an  unattenuated  form  with  the  path 
parameters  required  as  part  of  the  input  to  a  later  computation  of  the  molecu¬ 
lar  absorption  over  the  total  two- leg  path  ($P  +  PV).  The  aerosol  transmit¬ 
tance  along  the  incoming  path  SP  is  also  provided.  The  principal  routine  in 
the  model.  Subroutine  SURRAD,  and  its  auxiliary  geometry  routine  (Subroutine 
RINOUT)  are  described,  including  derivations  of  the  zenith  angle  of  the  sun 
(?g),  zenith  angle  of  the  detector  and  azimuth  angle  of  the  solar  ray 

reflected  toward  the  detector  (<>).  We  also  provide  detailed  sunmaries  of  the 
inputs  and  outputs  for  the  routines  developed  by  other  organizations  (G.E. 

Tempo  and  Visidyne,  Inc.)  which  we  use  to  complete  the  model. 
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Subroutine  SURRAO  also  provides  for  natural  clouds  if  they  are  in¬ 
cluded  in  the  calculation.  While  clouds  are  not  strictly  an  Earth-surface 
feature,  the  treatment  of  the  two  components  of  the  radiance  along  the  path  CV 
in  Figure  1-1,  resulting  from  cloud  tops  (the  highest  of  which  is  12  km  in  the 
Natural  Cloud  Model  and  shown  as  Point  C  in  Figure  1-1),  is  analogous  to  that 
for  Point  P  and  thus  is  appropriately  included. 

The  ROSCOE-IR  model  (23e)  for  the  upwelling  natural  radiation  is 
presented  in  Section  6.  This  model  evaluates  the  mean  upwelling  spectral 
radiance  at  Point  V  (in  Figure  1-1)  by  averaging  the  radiance  over  the  solid 
angle  (fly)  defined  by  the  cone  with  vertex  at  Point  V  and  tangent  to  the 
Earth's  surface.  In  practice,  we  average  the  set  of  radiances  received  at 
Point  V  by  viewing  (in  the  absence  of  clouds)  a  set  of  characteristic  Points  P 
on  the  Earth's  surface  and  within  fly.  The  Points  P  are  selected  in  terms  of  a 
set  of  angles  (&)  measured  from  the  nadir  and  a  set  of  azimuth  angles  (*)  for 
each  nadir  angle.  The  results  from  the  Earth  Surface  Radiance  Model  for  each 
Point  P  are  augmented  by  computing  (1)  the  air  emission  along  the  path  PV.  (?) 
the  molecular  path  parameters  along  PV,  (3)  the  total  path  parameters  along 
(SP  +  PV)  by  adding  those  for  SP  and  PV,  (4)  the  molecular  transmittance  for 
the  path  PV  and  for  the  total  path  (SP  +  PV),  and  (5)  the  aerosol  transmit¬ 
tance  for  the  path  PV  and  the  total  path  (SP  +  PV). 

The  inclusion  of  the  statistical  submodel  of  the  Natural  Cloud  Model 
complicates  the  modeling.  Now,  for  each  Point  C  there  is  a  distribution  of 
radiance  values  corresponding  to  the  159  sets  of  three-layer  cloud  configura¬ 
tions.  Details  are  given  in  Section  6. 

The  principal  routine  in  the  Upwelling  Natural  Radiation  Model  is 
Subroutine  UPWELL;  it  is  lengthly,  with  20  pages  cf  FORTRAN.  In  Section  6  we 
present  formulas  for  the  geometry  involved,  the  radiance  computed,  a  detailed 
summary  of  the  calcul ational  steps,  and  a  detailed  suninary  of  the  input  and 
output  variables. 

In  Section  6  we  also  provide  detailed  summaries  of  the  input  and 
output  variables  for  all  the  auxiliary  routines  which  are  called  by  Subroutine 
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UPWELL  but  which  are  not  so  documented  elsewhere.  These  routines  include  a 
number  prepared  by  SAI  and  three  important  ones  (Subroutines  TRNSCO,  ATMRAD, 
and  TRANS)  prepared  by  G.E.  Tempo. 

In  Section  7  we  provide  general  coding  information  for  the  NBR 
Module,  including  that  required  for  the  stand-alone  version.  We  identify  all 
of  the  (66  non-DSA)  routines  in  the  NBR  Module  and  provide  a  chart  showing 
their  calling-structure  relationships.  For  each  of  these  routines  we  also 
state  (1)  the  function  it  performs,  (2)  its  originator,  (3)  the  location  of  a 
listing  of  the  routine,  and  (for  27  routines)  (4)  the  number  of  the  table  in 
this  volume  which  states  in  detail  the  inputs  and  outputs  of  the  routine.  For 
common  blocks  we  provide  (1)  a  matrix  showing  routines  and  the  35  common 
blocks  appearing  in  them  and  (2)  either  definitions  of  all  the  variables  in 
the  comnon  block  and  where  the  variable1;  are  set  or  a  specific  reference  where 
the  definitions  are  given. 

The  NBR  Module  in  its  stand-alone  version  is  driven  by  Program  DRVUPW 
(11  pages  of  FORTRAN).  For  this  program  we  describe  in  Section  7  the  calcula- 
tional  steps  required  in  both  the  initialization  and  operation  phases.  During 
the  initialization,  calls  are  made  to  QINITL  (for  the  DSA  routines),  ATMOSt) 
(for  the  ambient  atmosphere  depending  on  time  and  location),  CLOUDO  (for  cloud 
properties),  TRANSB  (for  molecular  band-model  parameters  for  transmittance), 
and  SHELLS  (for  atmospheric  grid).  During  operation,  calls  are  made  to  SETALT 
(to  determine  the  altitudes  (depending  on  wavelengths  of  interest)  at  which 
Subroutine  UPWELL  is  to  compute  the  upwelling  natural  background  radiation) 
and  UPWELL.  Our  development  of  Subroutine  SETALT  is  described.  Summaries  of 
Input  and  output  variables  are  provided  for  Subroutine  SETALT  and  the  G.E. 
Tempo  routines  TRANSB  and  SHELLS. 

Finally,  in  Section  7,  we  provide  some  comments  on  the  integration  of 
the  NBR  Module  into  ROSCOE-IR,  including  some  of  the  differences  between  the 
stand-alone  version  and  that  in  ROSCOE-IR.  In  particular,  we  summarize  the 
inputs  and  outputs  of  Subroutine  UPWELT,  prepared  by  GRC,  to  select  the  appro¬ 
priate  wavenumber  interval  and  to  interpolate  in  altitude  the  upwelling 
natural  radiation  array. 
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In  Section  8  we  provide  a  listing  of  those  (37)  routines  in  the  NBR 
Module  which  are  not  listed  elsewhere  (at  least  not  as  we  are  using  them). 
These  include  19  SAI  routines,  17  G.E.  Tempo  routines,  and  1  Visidyne,  Inc. 
routine. 
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SECTION  2 


EARTH  SURFACE  CHARACTERIZATION:  GENERAL  AND  NON-WATER  SURFACES 


2-1  INTRODUCTION  AND  SUMMARY 


2-1.1  Requirements  for  the  Model 

The  characterization  of  the  Earth's  surface  is  required  for  input  to 
the  Earth  Surface  Radiance  Model  (23b)  and  the  Upselling  Natural  Radiation 
Model  (23c)  via  Model  23b.  For  the  Earth  Surface  Radiance  Model,  Model  23a  is 
required  to  provide  the  reflectance,  emittance,  and  temperature  of  the  Earth's 
surface  at  the  point  (P)  where  the  optical  line-cf-sight  intersects  the 
Earth’s  surface,  including  directional  effects  as  necessary.  For  the  Upwel- 
ling  Natural  Radiation  Model,  Model  23a  is  required  to  provide  the  average 
characteristics  (i.e.,  reflectance,  emittar.ee,  and  temperature)  of  that  por¬ 
tion  of  the  Earth's  surface  that  could  be  viewed  from  an  altitude  of  interest. 

2-1.2  Approach 

The  reflectance  and  emittance  properties  of  the  Earth's  surface  are 
controlled  mainly  by  composition  and  to  a  lesser  extent  by  surface  roughness. 
Since  the  composition  and  roughness  of  the  Earth's  surface  can  vary  markedly 
from  point  to  point,  so  can  its  optical  properties.  A  useful  sugary  of  the 
reflectance  data  for  the  Earth's  surface  features  was  prepared  by  Bartman  in 
his  thesis  [Ba-67b];  this  summary  has  been  reproduced  by  Kondratyev  [Ko-72d] 
and  is  shown  here  as  Table  2-1.  This  table  is  of  general  interest  for  us  even 
though  Bartman  and  Kondratyev  were  mainly  interested  in  the  Earth's  total 
albedo  for  solar  radiation  and  hence  emohasized  the  visible  soectral  region. 

It  has  been  agreed  to  represent  the  Earth's  surface  in  a  relatively 
simple  way,  yet  one  which  provides  a  range  of  reflectance,  emittance,  and 
temperature  values,  the  general  procedure  is  to  provide  for  six  categories  of 
the  Earth's  surface:  water,  snow,  sand,  soil,  foliage,  and  urban  material. 
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Table  2-1.  Suirmary  of  reflectance  data  for  the  Earth’s  surface  features. 

(Reproduced  from  Ko-72d;  originally  prepared  by  Bartntan  [Ba-67b].l 


Speci*\ii  churac lensnci 

-f/rgw.ur  Jiiirihunon  .*/  retire 

r»w/  ri'iV..:u«ff 

1  Sods  and  rocks 

•  J.  Increasing  to  i  micron 

•  2.  Decreasing  above  2  microns 

3.  Moisture  decreases  rcrtcciancc  ( 

1 .  Back  scat  ter  me  and  forward 
scattering 

2.  Sand  has  large  forward 
scattering 

3.  Loam  has  small  forward 
scattering 

1  5-J5** 

2 .  Moisture  decreases  reflectance 
by  5-20*# 

?.  Smooth  have  higher 

rc  heel  a  nee 

■t.  Diurnal  variation,  maximum 
reflectance  for  small  iun  angles 

j  Vegetation 

i 

i 

i 

,  1.  Small  (below  0.5  micron* 

2.  A  small  maximum  bump  at 

0.5  to  0.55  micron 

3.  Chlorophyll  absorption  at 

i  0  micron 

•  ■*.  Sharp  increase  at  0."  micron 
‘  5.  Decrease  above  2  macrons 
:  6.  Depends  on  growing  season 

1  Backscattermg 

2-  Small  forward  scattering 

1  5-25*  * 

2  Diurnal  effects,  maximum  re¬ 
flectance  !or  vnnall  angles 

,  5.  Marked  annual  -arianon 

Water  basins 

1  l.  Maximum  at  0.5-0."  micron 

2.  Depends  on  turbidity  and 
waves 

f 

i 

l .  Large  back  and  forward 
scattering 

1 .  Small  reflectance 

2.  Diurnal  variation  maximum 
for  small  sun  angles 

3.  Depends  on  tjfb»d;!v  and 
waves 

■  Snow  and  ice 

i 

X.  Decreases  slightly  with 
increasing  wave-length 

2.  Large  variability  derendmg  on 
’  purity,  wetness,  pny steal  con¬ 

dition 

1.  Diffuse  component  plus 
mirror  component 

2.  Mirror  component  incrcu »es 
with  increasing  angle  of  in¬ 
cidence 

:  1  Variable.  25 -SO*. 

2  ***•  m  Antarctic 
.  )  ■:»,  Ross  Sea  tee 

a  30—U)*,  '/hue  Sea  ice 

For  each  category  the  reflectance  and  emittance  have  been  chosen  to  be  repre¬ 
sentative  of  the  average  value  for  that  category.  The  chosen  values  are  based 
on  those  we  have  been  able  to  find  in  the  literature  so  far;  one  should  re¬ 
main  alert  to  possibly  finding  improved  values.  There  is  no  automatic  correla 
tion  between  geographic  position  and  surface  category.  However,  the  user 
could,  in  principle,  place  different  surfaces  as  he  desires  in  a  given  scene 
when  he  wants  to  address  surface  boundary  problems,  but  the  necessary  coding 
has  not  been  implemented.  For  test  and  possibly  other  purposes,  we  also  pro¬ 
vide  for  a  Lambertian  surface  with  a  user-defined  value  of  the  diffuse  reflec¬ 
tance  . 

^  review  of  the  literature  has  convinced  the  writer  that  m'St  materi¬ 
als  have  a  strong  non-diffuse  character.  To  take  account  of  the  non-diffuse- 
ness,  we  postulate  a  general  expression  for  the  bidirectional  reflectance- 
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distribution  function  (frequently  referred  to  as  BRDF)  with  several  parameters 
that  are  evaluated  on  the  basis  of  whatever  experiemental  data  are  available. 
(The  reader  unfamiliar  with  the  quantity  we  call  the  BRDF  -  which  has  many 
aliases,  including  partial  reflectance  or  refl ectance-distribution  function  - 
may  want  to  refer  to  the  discussions  by  Wolfe  [Wo-65a,  pp.  23-28]  or  by  Nico- 
demus  [N i - 65c ,  Si-70d,  Si-76].) 

Having  determined  the  BRDF  for  a  material,  one  can  then  integrate  the 
BRDF  over  a  hemisphere  to  obtain  the  directional-hemispherical  reflectance 
(which  is  equal  to  the  hemispherical-directional  reflectance)  and  thus  obtain 
the  directional  emissivity  for  the  material  by  applying  Kirchhoff's  law  [Ni- 
7Qd_l. 


2-1.3  The  Bidirectional  Reflectance-Distribution  Function  (BRDF) 

We  follow  the  recommendation  of  Sicodemus  [Ni-70d]  and  use  the  symbol 
f  to  represent  the  BRDF,  which  has  the  units  of  sr  The  general  form  we  pro¬ 
pose  for  the  BRDF  is 

"  ] 

fr  =  fr[">,  Q("0  ,  "i ,  3r,  il  ,  m  >  2 

=  aom(0  '  V*1  e*p{-*m[(cos  V  "  +  <COS  9,/® 

♦  Sm(l-|l-2./M  )]},,  sr*1  (1) 


where 


For  the  Lambertian  surface  (m=l),  the  BRDF  is  a  constant,  given  by 


f  =  » 
r  ol 


tr ) 
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wi  th 


R^o)  =  a1(-i  =  o 


<  2  ■ ) 


In  Equation 
m 

O(m)  - 


\ 

G  • 
1 


if 


(1),  the  symbols  have  the  following  meanings. 

Index  for  category  of  surface  material. 

Additional  descriptor  available  for  the  mth  material,  if  needed. 
For  brevity,  we  will  frequently  suppress  D(m)  as  an  explicit 
argument. 

Wavelength  (uni). 

Zenith  angle  of  sun  at  intersection  point  (R). 

Zenith  angle  of  detector  at  intersection  point  (P), 

Azimuth  angle  (at  intersection  point  ( P > >  of  vertical  plane 
through  1 ine-of-sight,  measured  relative  to  the  solar  principal 
plane  (i.e.,  vertical  plane  through  the  source  ray).  Values  of 
zero  and  »  for  *  correspond  to  forward  and  backward  scattering, 
respectively. 


There  are  six  parameters  -  j^U),  RjO),  RmM ,  aro'  =m>  a°d  ''m  * 
characteri zi ng  a  material,  according  to  our  Equation  (1).  Note  that  all  of 
the  spectral  dependence  of  the  reflectance  is  contained  in  the  parameter 

which  has  no  directional  dependence;  i.e.,  we  assume  that  the  spectral 
and  directional  properties  are  separable.  The  parameters  R^IO)  and 
together  with  and  vm,  control  the  forward  and  backward  reflection  in  the 
principal  plane;  the  parameter  controls  the  scattering  away  from  the  princi¬ 
pal  plane. 


In  addition  to  the  separability  of  the  spectral  and  directional  nro- 
perties,  our  expression  for  the  BRQF  has  two  other  important  properties.  The 
more  important  of  these  is  that  Equation  (1)  satisfies  the  Helmholtz  reciproc¬ 
ity  theorem  [Ni-55c]  according  to  which  f  must  be  invariant  to  an  interchange 
of  the  incident  and  reflected  rays.  The  third  principal  property  of  Equation 
(1)  is  that  is  integrable  over  a  hemisphere  provided  ^  equals  1  or  2. 
Whereas  we  have  imposed  this  restriction  in  the  dete-mi nation  of  the  other 
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parameters,  we  recognize  in  retrospect  that  this  requirement  could  probably  be 
relaxed  for  practical  applications  in  which  the  quality  of  the  fits  to  experi¬ 
mental  data  might  be  improved  if  a  had  other  values.  We  do  not  claim  unique¬ 
ness  for  Equation  (1),  but  it  is  the  only  expression  of  its  kind  of  which  we 
are  aware.  Further  thought  -  with  more  trials  and  errors  -  may  lead  to  a 
Detter  expression. 

Finally,  we  mention  an  odd  property  of  our  BRDF  which  is  not  of  much 
practical  consequence  but  which  may  be  a  small  wonderment.  This  property  is 
that,  for  9^  =  9r  =  0  (i.e.,  normal  incidence  and  reflection),  fr  as  given  by 
Equation  (1)  is  multivalued  in  that  it  depends  on  the  value  of  V.  Of  course, 
physically  we  expect  a  single  value.  Our  practical  solution  to  this  problem, 
for  6 ^  =  er  -  0,  is  simply  to  define  fp  to  be  the  value  obtained  by  averaging 
f  (0.0.*)  >>ver  ,  i.e., 

fr|,.  .  8r  .  0  *  <rr*0.0.»>>  .  O) 

From  the  integrations  presented  in  Section  2-4  we  show  that 

<%«»•*•*»  ■  %,  »♦•****■  ;  l3al 

where 

=  tRm(0)  + 

1 

P^(a)  =  j  dxe  ax  =  j  xl-e  a)  . 
o 

2-1.4  The  Di rectional -HemisDherical  Reflectance 

The  spectral ,  directional-hemispherical  reflectance,  denoted  here  by 
Pm( x ; e . , 2t ) ,  is  defined  [Hi -65c,  Wo-65a]  by  the  Integral 


(4a) 

(4b) 
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(5) 


PmU;e.,2,)  =  yVr 


cos  e„  dn. 


where 


dn  =  sin  e  d*  de  . 
r  r  r  r 


(5a) 


In  Section  2-4  we  show  that  the  result  of  the  integration,  when  Equation  (1) 
is  used  for  f  is 


(6) 


wi  th 


^WVV  =  1  +  2  Pl(V‘m)  P2v' [am1Rn,Fym(am’6i> 

m  m 


1 


P21( a)  = 


/ 


dxxe'ax  -  4  [1  ‘  e"d(a+1^ 
sr 


P22  ( 3)  = 


/ 


-ax  I  ,,  -ax 
dxxe  =  'i  -  e  ' 


(7) 

(8) 


(9) 


y 

F  (a, a)  =  exp[-a(cos  e)  m],  (10) 

For  a  Lambertian  surface  (m=i), 

o^(X;e^,2ir)  =  uc>0^(x)  .  ( 6  1 ) 

If  the  Spectral  directional -hemispherical  reflectance.  o_(\;0.,2n), 

‘  HI  I 

for  a  material  is  known  from  experiment  for  at  least  one  value  of  and  if 
the  five  directional  parameters  a  ,  Bm,  -ym>  R  (0),  and  ^ )  are  known,  then 
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our  spectral  parameter  <>omU)  in  Equation  (1)  can  be  determined  from  Equation 
(6)  evaluated  at  the  given  e..  In  practice,  the  directional -hemispherical 
reflectance  is  frequently  measured  for  a  direction  at  or  near  normal  inci¬ 
dence.  In  this  case,  for  at  least  the  materials  we  have  examined,  the  quan- 
tity  G(«  .8  .v  ;e  .=0)  -  which  is  a  measure  of  the  departure  of  the  BRDF  from  a 
constant,  as  it  would  be  for  a  diffuse  reflector  -  differs  from  unity  by  only 
a  few  percent  (9.5%  in  one  case).  Thus,  in  practice,  it  would  be  a  good  ap¬ 
proximation  to  simply  evaluate  o^tx)  by  the  relation 

Pon.U)*.’1  pm( x; e1-  =0 ,2^)  ;  (11) 

however,  for  self-consistency,  to  get  x )  we  have  used  Equation  (6)  evalu¬ 
ated  at  9 . =0  with  om( x ; 0 .=0,2 » )  given  by  (meager)  experimental  data,  i.e.,  we 
have  used 


o  (*;0.=O,2i.) 


1 


(6  •  ■  ) 


2-1.5  The  Directional  Emissivity 

The  directional  emissivity,  e^,  for  material  m,  at  a  zenith  angle  0, 
is  [Ni-65c,  Ni-70d] 


i  cd  5  E,j(m)*.9)  =  l-pm(x;e,2») 


(12) 


where  the  directional-hemispherical  reflectance  pm(x;0,2n)  is  given  by  Equa¬ 
tion  (5)  in  general  and  by  Equation  (6)  when  our  f  (Equation  (1))  is  used  in 
Equation  (5).  For  a  Lambertian  surface  (m=l), 

£^(1,1,9)  =  l-pjU;e,2w)  =  l-xcQjU)  .  (12') 

For  urban  mit.rial  (m=7),  see  Section  2-3. 5. 2  for  the  special  form  appropriate 
for  urban  geo.vpt.-y. 
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2-1.6  Summary  of  Parameters  for  the  8R[)f 


A  perusal  of  the  literature,  including  the  putative  extensive  HAS  A 
data  base  [LE-71a,  LE-72c],  has  so  far  revealed  very  few  photometric  data  of 
the  type  desired,  i.e.,  bidirectional  spectral  reflectance  data  in  the  2-  to  5- 
um  region.  The  data  available  typically  are  broad-band  and  usually  include 
the  visible  region.  Bidirectionality  is  usually  lost  in  that  the  data  are 
usually  for  hemispherical-directional  or  hemispherical-hemispherical  condi¬ 
tions.  Where  there  are  spectral  data  of  interest,  the  directional  data  are 
lacking;  similarly,  where  there  are  directional  data,  the  spectral  region  or 
resolution  is  wrong.  Where  the  data  are  taken  under  field  conditions,  not 
only  the  sun  but  the  sky  radiance  is  mixed  in. 

Despite  these  difficulties,  however,  we  have  boldly  arrived  at  the 
values  for  the  parameters,  recorded  in  Tables  2-2a  and  2-3.  The  details  of 
the  derivation  of  these  parameters  are  given  in  Sections  2-2  and  2-3. 

In  Table  2-2b,  we  present  the  azimuthal  dependence  of  fr  for  =  9r 
=  0,  as  well  as  <fr<0,0,*)>. 

2-1.7  Surface  Temperature 

The  remaining  required  specification,  surface  temperature,  may  be 
chosen  to  be  equal  to  the  ambient  air  temperature  at  the  Earth's  surface. 

This  assumption  is  reasonably  correct  for  all  cases  at  night,  and  for  water, 
snow,  and  foliaged  surfaces  during  the  day.  This  assumption  leads  to  signifi¬ 
cantly  low  surface  temperatures  for  other  surfaces  (barren  soil,  sand,  and 
urban  materi al s)  during  periods  of  solar  illumination.  However,  because  of 
the  complexity  of  modeling  this  phenomenon,  and  the  fact  that  the  natural 
Earth  surface  radiance  is  only  a  baseline  for  nuclear  effects,  use  of  the 
ambient  air  temperature  as  the  surface  temperature  is  currently  recommended; 
however,  consideration  should  be  given  later  (if  resources  permit)  to  devel¬ 
oping  a  better  prescription  for  the  surface  temperature. 
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Table  2-2a.  Spectral  and  directional  parameters  for  characterization 


of 

the  BRDF 

for 

Earth  surface  materials.* 

Spe 

ctral 

Directional 

Materi  al 

m 

D(m) 

(  \  )  <x 

B  f 

RIO)  RmU) 

Rm 

. . — - 

OR! 

m 

m  'm 

m  m 

m 

Lambertian 

1 

a 

D(l)/n  - 

0  U 

0 

Water 

2 

b 

f 

- 

- 

- 

- 

Snow 

J 

c 

9 

3 

U.9  1 

13  3 

8 

Sana 

4 

d 

h 

3 

0.5  1 

2.5  4 

3.25 

Soil 

5 

d 

i 

2.5 

0.5  2 

1  4 

2.5 

Vegetation 

6 

d 

j 

2.5 

0.5  2 

1  10 

5.5 

Urban  Materials 

7 

e 

k 

4 

0.5  2 

10.5  1 

5.75 

Directional 

( continued) 

Material 

m 

pi'%: 

P2, 

Fy  (<V0) 

;0 ) 

m 

Tm 

Lambertian 

1 

. 

1.00 

Water 

2 

- 

- 

- 

- 

Snow 

3 

.345 

.0890 

.0498 

1.024 

Sand 

4 

.518 

.0890 

.0498 

1.015 

Soil 

5 

.571 

.184 

.0821 

1.043 

Vegetation 

6 

.571 

.184 

.0821 

1.095 

Urban  Materials 

7 

.432 

.123 

.0183 

1.011 

^Footnotes  are  on 

the 

following  page. 
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Footnotes  for  Table  2 -2a. 


0(1)  is  the  diffuse  reflectance  Is,  =  up  . )  for  a  Lambertian  surface.  A 
typical  value  is  0.1.  L  1 

b  0(2)  is  the  wind  speed,  0  £  0(2),  m/sec. 

£ 

0(3)  is  the  snow-age  parameter,  0  <^0(3)  <  1.  Values  of  zero  and  one  corre¬ 
spond  to  new  and  old  snow,  respectively. 

d  Not  used. 

0 

D(7)  is  the  degree-of-urbani zation  factor,  0  10(7)  11.  A  value  of  zero 
for  0(7)  provides  a  spectral-dependent  BRDF  corresponding  to  a  flat  surface 
with  directional  reflectance  properties  equal  to  the  average  for  concrete 
and  asphalt.  A  value  of  one  for  0(7)  provides  a  spectral-dependent  BRQF 
corresponding  to  a  diffuse  reflector  but  modified  by  a  shadow  factor 
S(9.,ep)  =  (cos  9i  +  cos  6p)/2. 

£ 

'  See  Section  3  for  treatment  of  water. 

^  Evaluated  from  Equation  (6 ’ ’ )  with  given  in  Table  2-3  by  a  formula  with 
dependence  on  the  snow- age  parameter,  0(3). 

h  Evaluated  from  Equation  (6“)  with  p.,  given  in  Table  2-3,  being  the  average 

value  for  natural  gypsum  sand  [Ho-66,  Figure  10]  and  Russian  sand  [Kropotkin 

(1964)  per  Ba-67b,  Figure  82]. 

1  Evaluated  from  Equation  (6")  with  p5,  given  in  Table  2-3,  being  the  average 
value  for  topsoil  [RH-73,  p.  15-20],  Pawnee  Grassland  soil  [Ho-66,  Figure 
9],  and  Russian  soil  [Kropotkin  (1964)  per  Ba-67b,  Figure  82]. 

J  Evaluated  from  Equation  (6")  with  pg,  given  in  Table  2-3,  based  on  data 

provided  by  D.C.  Anding,  said  to  be  an  average  of  many  values  in  LE-71a  for 

2.0  <  (nm)  <  2.5  and  estimated  for  2.5  <x(um)  _<  5. 

k 

Evaluated  from  Equation  ( 6 * 1 )  with  p-j,  given  in  Table  2-3,  being  the  average 
value  for  Russian  asphalt,  asphal tic  material  [Wo-65a,  Figure  4-23],  Russian 
(red)  brick,  and  Russian  concrete.  Russian  data  are  given  by  Kropotkin 
(1964)  per  Ba-67b,  Figure  82. 


Table  2-2b.  <fr(Q,0,i)>  and  azimuthal  dependence  of  fr(0,0,*). 


m 

P0'lfr(o,o,o) 

Po'lfr(°,0,,-/2) 

oo-lfr<°,0,"> 

Po'1<fr(0.°.^> 

3 

1.032 

1.0013 

1.0074 

1.0068 

4 

1.0062 

1.0018 

1.0099 

1.0042 

5 

1.0067 

1.0048 

1.027 

1.0096 

6 

1.0067 

1.011 

1.067 

1.021 

7 

1.0035 

1.00026 

1.00034 

1.00083 

Table  2 

-3.  Normal-incidence-- 
surface  materials. 

hemispherical 

reflectance  for 

Earth 

Snow 

°3  = 

Soil 

[0.44  ~  0.12 

{ A -2 > ]  [ 1- ( 5/12 )  D(3)] 

Sand 

x  ,um 

°5 

x,um 

p5 

x  ,wm 

p4 

X  ,  ulfl 

p4 

2.00 

0.262 

3.15 

0.067 

2.00 

0.205 

2.95 

0.040 

2.08 

.272 

3.50 

.112 

2.05 

.238 

3.20 

.070 

2.25 

.257 

3.70 

.158 

2.18 

.209 

3.30 

.093 

2.50 

.227 

3.82 

.177 

2.30 

.206 

3.60 

.145 

2.62 

.198 

4.10 

.195 

2.45 

.177 

3.75 

.162 

2.70 

.095 

4.60 

.158 

2.50 

.174 

3.90 

,152 

2.77 

.067 

4.77 

.142 

2.63 

.148 

4.35 

.076 

2.92 

0.061 

5.00 

0.113 

2.73 

.114 

4.90 

.031 

2.88 

0.080 

5.00 

0.035 

Vegetation 

x  ,um 

°6 

x  t  uni 

p6 

2.00 

0.129 

3.16 

0.033 

2.20 

.212 

3.22 

.033 

2.64 

.059 

3.42 

.074 

2.78 

.059 

3.58 

.074 

2.96 

.120 

3.95 

.037 

3.03 

0.120 

5.00 

0.021 

(continued! 
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Table  2-3.  Normal -incidence--hemi spherical  reflectance  for  Earth 
surface  materials*  (Cont'd). 


Urban  Material  s 

A  . 

p7 

A  ,pm 

c7 

x  ,pm 

°7 

2.00 

0.347 

2.70 

0.272 

4.00 

0.231 

2.12 

.348 

2.85 

.145 

4.10 

.238 

2.24 

.326 

2.89 

.118 

4.26 

.240 

2.26 

.278 

3.00 

.090 

4.42 

.254 

2.36 

.272 

3.10 

.091 

4.70 

.246 

2.47 

.295 

3.24 

.100 

4.83 

.229 

2.55 

.299 

3.62 

.149 

5.00 

0.215 

2.63 

0.296 

3.89 

0.193 

°In  this  table,  for 

brevity,  we 

use  the  no 

tation  p  = 

Pm( 4,0,2 

n )  for  the 

spectral  ,  normal-incidence--hefflispherical 

reflectance 

• 

2-2  EVALUATION  OF  SPECTRAL  DATA  FOR  THE  BRDF 

2-2.1  Snow 

for  snow,  we  have  found  very  limited  spectral  reflectance  data  in  the 
2-  to  5-um  region,  although  there  are  considerable  spectral  data  in  the  visi¬ 
ble  region  [Ko-73a,  pp.  227-229,  231]  and  albedo  data  [Ko-72dJ.  Kondratyev 
[Ko-73a,  p.234.  Figure  4.12]  reports  spectral  reflectance  data  for  old  snow 
for  \<  2.5  yin  and  for  fresh  snow  for  x  <  2.2  pm;  these  values  are  much  smaller 
than  those  we  have  adopted,  taken  from  graphs  given  by  Rose  et  al .  [RA-73, 
Figures  37b,  37c]  (or  W2-78,  Figure  3-19)  and  attributed  to  Russian  literature 
which  we  have  not  yet  acquired  for  verification.  The  data  from  RA-73,  which 
are  limited  to  i  f  4.0  urn,  are  replotted  in  Figure  2-1  where  they  are  extrapo¬ 
lated  to  5  pm.  By  using  the  slopes  of  the  curves  in  the  3-  to  4-ym  region,  we 
have  very  well  fitted  the  two  curves  by  the  single  equation 

p3  =  [0. 44  -  0.12  (a  -  2)]  [1-15/12 )  0(3)] 


(13) 


Figure  2-1 .  Spectral  diffuse  reflectance  of  winter  snow  and  ice  and  summer  ice 
(2  to  5  m"1). 

in  which  we  have  introduced  the  snow-aye  parameter  D ( 3 )  to  which  we  assign  the 
value  of  zero  for  winter  snow  and  ice  and  the  value  of  unity  for  sunner  ice. 
Intermediate  curves  can  be  interpolated  by  using  intermediate  values  of  0(3), 

0  <  0(3)  <  1.0. 

2-2.2  Sand 

Hemispherical--normal-directional  spectral  reflectance  data  in  the 
range  Q.5«a(um)  <b  are  given  by  Hovis  [Ho-6bj  for  pure  silica  sand,  beach 
sands  (from  New  Jersey  and  Florida)  which  are  largely  silica,  and  gypsum  sand, 
coimton  in  much  of  the  soil  of  the  western  United  States,  particularly  in  the 
sand  of  the  White  Sands  National  Monument  in  New  Mexico.  For  gypsum  sand, 
riovis  lHo-66j  shows  reflectance  data  for  samples  of  both  its  natural  state  and 
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partially  dehydrated  state.  Spectral  data  for  (Russian)  sand,  not  otherwise 
identified,  are  given  by  Kropotkin  [(1964),  per  Ba-67b,  Figure  82].  The  data 
from  Kropotkin  are  reproduced  as  Figure  2-2.  The  results  of  digitizing  the 
Hovis  curve  [Ho-66,  Figure  10]  for  the  natural-state  gypsum  sand  and  those 
for  the  Russian  sand  are  given  in  Table  2-4;  these  data  are  plotted  in  Figure 
2-3.  The  results  of  averaging  the  digitized  data  for  the  natural  gypsum  sand 
and  the  Russian  sand  are  given  in  Table  2-3  and  plotted  as  the  dashed  curve  in 
Figure  2-3. 


\ 

A  i  ^ ) 


Figure  2—2.  Spectral  reflectance  for  (1 )  sand,  (2)  soil,  (3)  asphalt,  (4)  brick,  and  (5)  concrete 
(after  Kropotkin  et  al.,  per  Pa— 67b,  Figure  82). 
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Table  2-4.  Spectral  reflectance  of  sand,  p^. 


Natural  Gypsum  Sand 


t  ,UlD 

p4 

2.00 

0.07 

2.05 

.14 

2.18 

.09 

2.30 

.095 

2.45 

.05 

2.63 

.04 

2.73 

.01 

2.87 

.01 

2.95 

.02 

3.20 

.015 

3.75 

.12 

4.35 

.015 

4.80 

.015 

5.00 

0.03 

|  ^ovis  [Ho-66,  Figure  10] 

i 


Russian  Sand 

t  ,utr. 

°4 

2.00 

0.34 

2.25 

.325 

2.50 

.30 

2.65 

.35 

2.78 

.20 

2.88 

.15 

2.95 

.06 

3.10 

.10 

3.30 

.  15 

3.80 

.20 

3.90 

.21 

4.00 

.20 

4.90 

.04 

5.00 

0.04 

^Kropotkin  (1964)  [Ba-67b,  Figure  82]. 


Figure  2— 3.  Spectral  reflectance  for  sand,  p4.  Dashed  curve  is  average  of  (A)  natural 

gypsum  sand  (Hovis,  Ho-66,  Figure  10)  and  !B)  Russian  sand  (Kropotkin 
(1964)  per  Bart  man  |Ba-67b,  Figure  82] ). 
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2-2.3 


Soil 


Hovis  t.Ho-66,  Figure  9]  presents  the  hemispherical --nonnal- direc¬ 
tional  reflectance  of  soil  from  the  Pawnee  Grassland  area  in  Colorado.  The 
results  of  digitizing  the  Hovis  curve  are  given  in  Table  2-5  and  plotted  in 
Figure  2-4. 

RH-73  (p.  15-20,  Figure  lu)  presents  the  normal  emittance  of  topsoil. 
The  results  of  digitizing  this  curve  and  computing  the  normal  reflectance  are 
given  in  Table  2-5  and  plotted  in  Figure  2-4. 

Spectral  data  for  (Russian)  soil,  not  otherwise  identified,  are  given 
by  Kropotkin  [(1964)  per  Ba-67b,  Figure  82],  reproduced  here  as  Figure  2-2. 

The  results  of  digitizing  the  Kropotkin  curve  are  given  in  Table  2-5  and  plot¬ 
ted  in  Figure  2  4. 

The  results  of  averaging  the  digitized  data  for  the  Pawnee  Grassland 
soil  [Ho-66],  the  topsoil  reported  in  RH-73,  and  the  Russian  soil  [Ba*67bJ  are 
given  in  Table  2-3  and  plotted  in  Figure  2-4. 

2-2.4  Vegetation 

The  following  spectral  reflectance  data  for  vegetation  were  provided 
by  D.C.  Andirg  who  says: 

"Values  of  spectral  diffuse  reflectance  of  vegetation  repre¬ 
senting  the  averages  for  many  types  cf  vegetation  wp.-p  re¬ 
tailed.  The  data  were  taken  from  LE-71a  for  k  <  2.5  urn  for 
which  the  typical  measurement  procedure  was  to  illuminate  at 
normal  incidence  and  collect  hemispherical  output.  Values 
beyond  2.5  um  were  estimated." 
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Table  2-5.  Spectral  reflectance  of  soil  ,  d$. 


Pawnee  Grassland  Soil3 

Topsoil b 

X  ,  yfll 

p5 

X  t  aTTI 

e 

1  =p5 

2.00 

0.36 

2.00 

0.725 

0.275 

2.08 

.395 

2.50 

.766 

.234 

2.62 

.27 

2.61 

.800 

.200 

2.70 

.045 

2.77 

.950 

.050 

3.15 

.045 

2.92 

.950 

.050 

3.70 

.22 

3.15 

.920 

.080 

4.10 

.25 

3.50 

.910 

.090 

5.00 

0.09 

3.82 

.810 

.190 

4.15 

.790 

.210 

Hovi  s 

[Ho-66,  Fig.  9] 

4.77 

.825 

.175 

5.00 

0.860 

0.140 

bRR-73, 

p.  15-20, 

Fig.  10. 

Russian  Soilc 

* ,  um 

°5 

2.00 

0.150 

2.25 

.160 

2.50 

.150 

2.70 

.125 

2.85 

.090 

3.25 

.075 

4.10 

.130 

4.60 

.130 

5.00 

0.110 

CKropotki n  (1964)  [3a-67b,  Fig.  32] 


For  \  <  2.5  urn,  the  data  are  the  same  as  those  g’ven  in  Figure  37e  of 
RA-73  (or  Figure  3-19  of  W2-78);  at  longer  wavelengths  the  curve  in  Figure  37e 
of  RA-73  differs  someOiat  from  the  estimated  data  provided  by  Anding.  The 
results  of  digitizing  Anding's  curve  are  given  in  Table  2-3  and  plotted  in 
Figure  2-5.  Whereas  we  will  use  the  curve  in  Figure  2-5,  one  should  be  alert 
for  more  specific  data. 
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Spectral  reflectance  for  toil,  pc  ■  Oath— dot  curve  it  average  of  (A)  Pawnee 
Grassland  soil  (Ho— 66,  Figure  9) ,  (B)  Topsoil  (RH— 73,  p.  15—20, 

Figure  10] .  and  (C)  Russian  soil  (Kropotkin  (1964)  per  Ba— 67b,  Figure  82] 


2-2.5 


Urban  Materials 


Wolfe  [Wo-65a,  Figure  4-23]  reports  the  spectral  reflectance  of 
asphaltic  road  material-  The  results  of  digitizing  this  curve  are  given  in 
'able  2-6  and  plotted  in  Figure  2-6. 


Spectral  reflectance  data  for  (Russian)  asphalt,  brick,  and  concrete 
are  given  by  Kropotkin  [(1964)  per  Ba-67b,  Figure  67b],  reproduced  here  as 
Figure  2-2.  The  result  of  digitizing  these  curves  are  given  in  Table  2-6  and 
plotted  in  Figure  2-6. 

The  results  of  averaging  the  digitized  data  for  the  asphaltic  road 
material  [Wo-65a]  and  the  Russian  asphalt,  brick,  and  concrete  are  given  in 
Table  2-3  and  plotted  in  Figure  2-6. 


2-3 


EYAIUATIOM  OF  DIRECTIONAL  DATA  FOR  THE  BRDF 


2-3.1 


Snow 


Salomonson  and  Marlatt  [SM-68,  SM-68a]  have  measured  spectrally  inte¬ 
grated  values  (0.55  to  0.35  am  and  0.2  to  4.0  um)  of  the  BRDF 1 s  for  clouds, 
sno.  and  white  gypsum  sand.  The  ordinate  in  their  Cartesian  plots  is  actu¬ 
ally  it  times  the  BRDF.  The  relative  values  of  the  ordinates  on  the  curves  for 
the  0.2-  to  4.0-vm  spectral  interval  have  been  digitized  and  they  are  given  in 
Table  2-7. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  snow  is  the 
ratio  given  by  Equation  (14), 


f  (  0 . ,9  ,*) 

cfo-a  . \  -  r’i’r’ 
Fr(9i’Vv)  =  ~TI|'('6~,  ,9„-0,v)  1 


[14) 


r’i’r 


where  fr(e^  ,9r,<i)  is  given  by  Equation  (1),  with  the  five  directional  para¬ 
meters  ( a-j ,  u-j,  aj,  R^iu),  and  RjU))  as  giver,  in  Table  2-2a  for  m=3.  We  have 
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Table  2-6.  Spectral  reflectance  of  seme  urban  materials, 


Asph-al  tic 

Poad  Material a 

Asphalt*5 

x ,  um 

°7 

x ,  urn 

p7 

2.00 

0.462 

2.00 

0.100 

2.1? 

.480 

2.50 

.090 

2.24 

.411 

3.00 

.025 

2.26 

.226 

4.00 

.075 

2.36 

.226 

4.60 

.075 

2.47 

.346 

5.00 

0.060 

2.63 

.436 

2.70 

.436 

2.89 

.100 

3.00 

.074 

Brick 

3.15 

.077 

3.24 

.042 

x  ,ym 

p7 

3.38 

.042 

3.62 

.068 

2.00 

0.525 

3.89 

.160 

2.30 

.500 

4.00 

.279 

2.50 

.480 

4.26 

.331 

2.65 

.465 

4.42 

.419 

3.00 

.220 

4.62 

.439 

3.10 

.220 

4.70 

.467 

3.50 

.350 

4.83 

.457 

4.00 

.450 

5.00 

0.476 

4.10 

.450 

4.60 

.350 

5.00 

0.200 

Concrete*5 


X ,  um 

°7 

x ,  pm 

°7 

x  ,iun 

°7 

2.00 

0.300 

2.65 

0.200 

4.30 

0.140 

2.20 

.300 

2.85 

.040 

4.60 

.140 

2.40 

.275 

3.10 

.040 

5.00 

0.125 

2.55 

0.250 

3.60 

0.100 

j*Wolfe  [Wo-65a,  Figure  4-23,  p.  83] 
Kropotkin  [(1964),  Ba-67b,  Figure  82] 
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Figure  2—6.  Spectral  reflectance  for  urban  materials,  yj  .  Dash-dot  curve  is  average  of 

(A)  Asphaltic  road  material  [Wo-65a,  Figure  4-23,  p.  83] ,  (B)  Asphalt 
(Kropotkin  (1964)  per  Ba— 67b,  Figure  82] ,  (C)  Brick  [Kropotkin  (1964) 
per  Ba—  67b,  Figure  82],  and  (D)  Concrete  [Kropotkin  (1964)  per  Ba— 67b, 
Figure  821 . 
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plotted  the  results  for  the  forward  U=0)  and  backward  U=ir)  directions  as  the 
set  of  continuous  curves  in  Figure  2-7,  with  the  lowest,  middle,  and  highest 
portions  corresponding  to  solar  zenith  angles  (e^)  of  64,  68,  and  84  deg.  The 
experimental  values  of  SM-68  are  also  shown  in  Figure  2-7  for  comparison. 


Table  2.7.  Relative  directional  reflectance  of  snow  for  solar  zenith 
angles  of  e.  =,64,  68,  84  deg,  in  the  spectral  range  of 
0.2  to  4,0  urn. 


Solar 

Azimuth 

Zenith  Angle  of 

Zenith 

Angle 

Reflected  Ray,  e_ 

ei 

* 

Q 

45 

60 

75 

64 

0 

1.00 

1.26 

1.52 

1.97 

180 

1.03 

1.12 

1.19 

68 

0 

1.21 

1.48 

2.36 

180 

1.21 

1.31 

1.48 

84 

0 

1.63 

2.26 

4.11 

180 

1.01 

1.34 

1.94 

aValues  inferred 

from  Figures  16,  8, 

and  15  of 

Salomonsor 

i  and  Marlatt  [SM-68]. 

2-3.2  Sand 

Salomonson  and  Marlatt  [SM-68]  have  also  obtained  results  for  white 
gypsum  sand.  The  relative  values  of  the  ordinates  on  their  curves  for  the 
0.2-  to  4.0-»m  spectral  interval  have  been  digitized;  they  are  given  in  Table 
2-8. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  sand  is  the 
ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as  given  in 
Table  2-2a  for  m=4.  We  have  plotted  the  results  for  the  forward  ( 4>=0 1  and 
backward  (♦=»)  directions  as  the  set  of  continuous  curves  in  Figure  2-8,  with 
the  lowest,  middle,  and  highest  portions  corresponding  to  solar  zenith  angles 
(e.j)  of  21,  48,  and  59  deg.  The  experimental  values  of  SM-68  are  also  shown 
in  Figure  2-8  for  comparison. 


Relative  BRDF 


Figure  2— 7.  Relative  BRDF  for  $now. 
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Table  2-8.  Relative  directional  reflectance  of  gypsum  sand  for  solar 

zenith  angles  gf  e.  =  21,  48,  59  deg,  in  the  spectral  range 
0.2  to  4.0  urn.  1 


Solar 

Azimuth 

Zenith  Angle  of 

Zenith  Angle 

Angle 

Reflected  Ray, 

r 

8  . 

1 

0 

45 

60 

75 

21 

0 

1.00 

0.95 

0.95 

0.85 

180 

1.04 

1.04 

0.95 

48 

0 

1.00 

1.02 

1.04 

180 

1.13 

1.19 

1.19 

59 

0 

1.01 

1.10 

1.11 

180 

1.11 

1.22 

1.28 

59 

0 

1.04 

1.07 

1.38 

180 

1.10 

1.20 

1.40 

aValues  inferred 
[SM-68]. 

from  Figures  17, 

18,  9,  and 

19  of  Salomonson  and 

Marlatt 

2-3.3  Soil 

Coulson  [Co-66a,  Figure  4]  plots  the  directional  reflectance  of  black 
loam  soil  at  three  angles  of  incidence  (0,  53,  and  78.5  deg)  in  the  principal 

o 

plane  for  x=643Q  A-  Coulson  notes  that  the  backward  maximum  is  relatively 
more  pronounced  at  all  three  angles  than  it  is  for  desert  sand,  and  the  for¬ 
ward  maximum  is  almost  absent  at  the  small  angles  of  incidence. 

Duntley,  Gordan,  et  al .  [DG-64]  measured  the  directional  luminous 
reflectance  of  dirt  (hard  packed,  yellowish).  Their  data  are  reproduced  here 
in  Table  2-9a.  We  have  normalized  these  data  to  the  nadir  value  and  tabulated 
the  results  in  Table  2-9b. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  soil  (dirt) 
is  the  ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as 
given  in  Table  2-2a  for  m=5.  We  have  plotted  the  results  for  the  forward 
(■.>•=0),  backward  (i >="),  and  sideward  {*=n/2)  directions  as  the  set  of  con¬ 
tinuous  curves  in  Figure  2-9.  The  experimental  values  of  DG-64  are  also  shown 
in  Figure  2-9  for  comparison. 
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Relative  BRDF 


Figure  2—8.  Relative  BRDF  lor  gypsum  sand. 
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Table  2-9a.  Directional  luriinous  reflectance  of  dirt  for  solar  zenith 
angles  e .  54  deg. 


Sol  ar 

Azimuth 

Zenith  Angle  of 

1 

Zenith  Angle 

Angle 

Reflected  Ray,  er 

8  . 

1 

0 

15 

30 

45  60 

75 

80 

53.2 

0  0.243 

0.230 

0.229 

0.239  0.252 

0.300 

0.330 

56.5 

90 

0.243 

0.258 

0.260  0.276 

0.300 

0.304 

51.1 

180 

0.272 

0.313 

0.370  0.422 

0.432 

0.434 

aDuntley,  Gordan 

et  al .  [DG-64,  Table  3.2]; 

Item  8 

*  hard-packed 

,  yellowish 

dirt. 


Table  2 -9b 

.  Relative  directional  luni 
zenith  angles  9^  %  54  deg 

ngus  reflectance  of  dirt  for 
* 

solar 

Solar 

Azi muth 

Zenith  Angle  of 

Zenith  Angle 

Angle 

Reflected  Ray,  er 

ei 

* 

0 

15 

30 

45  60 

75 

80 

53.2 

0 

1.00 

0.95 

0.94 

0.98  1.04 

1.23 

1.36 

56.5 

90 

1.00 

1.06 

1.07  1.14 

1.23 

1.25 

51.1 

180 

1.12 

1.29 

1.52  1.74 

1.78 

1.79 

aDerived  from 

Table  2-9a. 

2-3.4  Vegetation 

For  green  grass,  Coulson  [Co-66a]  has  measured  the  directional  reflec¬ 
tance  at  four  different  wavelengths  in  the  visible  and  near-IR  spectral  "eg- 

O 

ions  and  at  three  different  angles  of  incidence  at  x=6430  A,  all  measurements 
being  in  the  principal  plane. 

Duntley,  Gordan  et  al .  [OG-64.  Table  3.2]  have  measured  the  direc¬ 
tional  luninous  reflectance  of  several  types  of  vegetation.  For  each  type  of 
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Figure  2—9.  Relative  BRDF  for  dirt. 


45 


vegetation  we  have  normalized  their  data  to  the  nadir  value  for  the  correspond- 
ing  type  of  vegetation  and  presented  the  results  in  Table  2-10.  The  last  set 
of  numbers  in  Table  2-10  represents  an  average  of  the  data  for  the  first  four 
types  of  vegetation. 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  vegetation 
is  the  ratio  given  by  Equation  (14)  with  the  five  directional  parameters  as 
given  in  Table  2-2a  for  m=6.  We  have  plotted  the  results  for  the  forward 
(t'=0),  backward  ('Nf),  and  bideward  (*-*/2)  directions  as  the  set  of  continu¬ 
ous  curves  in  Figure  2-10.  The  average  of  the  experimental  vegetation  values, 
given  in  Table  2-10,  are  also  shown  in  Figure  2-10  for  comparison. 

2-3.5  Urban  Material s 

2-3.5. 1  Concrete  and  Asphalt 

Wolfe  [Wo-6oa,  pp.  88,89]  presents  directional  reflectivity  curves 
for  concrete  and  for  asphalt.  In  fact,  results  are  given  for  three  types  of 
detectors:  PbSe,  PbS,  and  thermistor.  We  have  selected  the  results  for  the 
PbSe  detector  as  being  of  the  greatest  interest  for  applications  in  the  2-  to 
5-ym  region,  as  seen  by  examining  the  detector  characteristic  curves  presented 
by  Wolfe  [Wo-65a:  PbSe,  pp.  477-479;  PbS,  pp.  474-476;  thermistor,  p.  498]. 

We  have  digitized  the  directional  reflectivity  curves  presented  by  Wolfe  [Wo- 
65a]  for  the  PbSe  detector  and  taken  account  of  the  fact  that  the  "directional 
reflectivity"  rir  given  in  these  figures  is  related  to  the  partial  reflectance 
(which  we  here  call  the  BRDF,  fr  [Ni-70d,  Ni-65c]5  by  the  expression 

<*1r  =  fr(ei,8r;*=0,n)  cos  e1  cos  f>r  .  (15) 

Ue  have  given  both  the  directly-read  values  r^r  and  converted  values  f  in 
Tables  2 - 1 1 a  and  2-1  lb.  For  each  source  zenith  angle  we  have  normalized 
these  values  of  the  BRDF  to  an  average  of  the  near-nadir  values  and  tabulated 
the  results  in  Table  2-1  lc. 
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Table  2-10.  Relative  directional  luminous  reflectance  of  several  types  of 
vegetation. 


(11  Pine  Trees;  small , 

uniformly  spaced.  Data  are 

for  unresolved 

terrain 

i. 

Solar 

Azimuth 

Zenith  Angle 

of  Reflected  Ray, 

Zenith,  9^ 

* 

0 

15 

30 

45 

50 

75 

80 

85 

41.5 

0 

1.00 

0.72 

0.64 

0.64 

0.78 

1.14 

1.39 

2.58 

45 

.67 

.61 

.58 

.63 

.91 

1.16 

1.65 

90 

.95 

.93 

.95 

.95 

1.01 

1.16 

1.39 

135 

1.01 

1.15 

1.18 

1.16 

1.32 

1.39 

1.72 

180 

1.21 

1.33 

1.74 

1.92 

2.14 

2.28 

2.48 

(2)  Grass; 

thick,  rather  long 

,  pale 

green. 

dormant 

,  dryi sh 

i,  little  ground 

showing 

Solar 

Azimuth 

Zenith  Angle 

of  Reflected  Ray,  er 

Zenith, 

V 

0 

15 

30 

45 

60 

75 

80 

85 

41.5 

0 

1.00 

0.92 

0.86 

0.87 

1.00 

1.07 

1.09 

1.07 

180 

1.11 

1.35 

1.66 

1.70 

1.74 

1.74 

1.82 

(3)  Grass; 

lush  green 

,  closely  mowed 

thick 

lawn. 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray, 

0r 

Zenith,  ei 

if 

0 

15 

30 

45 

60 

75 

80 

40.4 

0 

1.00 

0.96 

Q.QR 

1.08 

1.20 

1.49 

1.68 

39.6 

90 

1.03 

1.10 

1.21 

1.38 

1.59 

1.68 

39.6 

135 

1.07 

1.25 

1.48 

1.66 

1.78 

1.78 

39.9 

180 

1.09 

1.09 

1.19 

1.22 

1.25 

1.25 

(continued) 
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Table  2-10.  Relative  directional  luminous  reflectance  of  several  types  of 
vegetation  (Cont’d). 


(4)  Mixed 

Green  Forest; 

deciduous  (oak)  and  evergeen  (pine) 

• 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray,  8(, 

Zenith,  e 

i  * 

0 

15 

30  45 

60 

75 

39.0 

0 

1.00 

0.90 

0.81  0.57 

0.57 

0.95 

37.0 

180 

1.14 

1.37  1.37 

2.28 

7.30 

(5)  Pine 

Forest. 

Solar 

Azimuth 

Zenith  Angle  of  Reflected  Ray,  er 

Zenith,  a 

i  * 

0 

15 

30  45 

60 

75 

33.5 

0 

1.00 

1.00 

0.80  0.64 

0.64 

0.52 

(6)  Average  of  First  Four  Types. 

Sol  ar 

Azimuth 

Zenith  Angle  of  Reflected  Ray,  er 

Zenith,  0 

i  * 

0 

15 

30  45 

60 

75 

80 

85 

^40 

0 

1.00 

0.88 

0.82  0.79 

0.89 

1.16 

1.39 

1.82 

90 

0.99 

1.01  1.08 

1.16 

1.30 

1.42 

180 

1.14 

1.28  1.49 

1.78 

3.11 

1.76 

dFrom  DO- 

64,  Table  3.2 

The  expression  we  have  evaluated  as  the  relative  BRDF  for  concrete 
and  for  asphalt  is  the  ratio  given  by  Equation  (14)  with  the  parameters  for 
concrete  being  T^a  =  2,  ^  =  4,  8?  =  0.5,  a (0 )  =  8,  and  R ? b ( w )  -  1  and  for 

asphalt  being  =  2,  a7b  =  4,  8?b  =  0.5  ^ 7 b ( 0 J  =  13,  and  R ? b ( ”  1  =  1.  We 
have  plotted  the  results  for  the  forward  !i=0)  and  backward  (*=*)  directions 
in  Figure  2-lla  and  2-llb.  The  experimental  values  reported  in  Wo-65a  are 
also  shown  in  Figures  2-lla  and  2-llb  for  comparison.  For  an  average  of  con 
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Figure  2— 10.  Relative  BRDF  for  vegetation. 
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Table  2-lla.  Directional  reflectance  data  for  concrete.8 


r . 

\  r 

f 

-1 

,sr 

r 

V 

e 

r 

V° 

r^=20 

6 .  =40 

1 

0^=60 

v° 

^=20 

*.=40 

e.=6Q 

0 

BO 

0.027 

0.030 

0.030 

0.032 

0.16 

0.18 

0.23 

0.37 

0 

70 

.039 

.040 

.045 

.055 

.11 

.12 

.17 

.32 

0 

60 

.053 

.053 

.053 

.064 

.11 

.11 

.14 

.26 

0 

50 

.073 

.075 

.074 

.061 

.la 

.12 

.15 

.19 

0 

40 

.086 

.081 

.075 

.057 

.11 

.11 

.13 

.15 

0 

30 

.10 

.094 

.092 

.058 

.12 

.12 

.14 

.13 

0 

20 

.10 

.11 

.090 

.053 

.11 

.12 

.13 

.11 

0 

10 

.11 

.12 

.088 

.059 

.11 

.13 

.12 

.12 

0 

.11 

.089 

.064 

.12 

.12 

.13 

180 

10 

.10 

.10 

.084 

.055 

.10 

.11 

.11 

.11 

180 

20 

.10 

.077 

.049 

.11 

.11 

.10 

180 

30 

.10 

.094 

.073 

.046 

.12 

.12 

.11 

.11 

180 

40 

.087 

.065 

.049 

.11 

.090 

.13 

180 

50 

.073 

.063 

.053 

.032 

•  il 

.10 

.11 

.10 

180 

60 

.061 

.040 

.050 

.12 

.085 

13 

180 

70 

.037 

.040 

.030 

.11 

.12 

.11 

180 

80 

.027 

.17 

aValucs  of  r  . 
f  computed1 

-  read 
from  fr 

from  VJo-65a,  p 
=  rir/(cos  9. 

.  88,  Figure 
cos  er). 

4-28. 

PbSe  do 

tec  tor . 

Values  of 

Crete  and  asphalt  we  propose  the  five  directional  parameters  as  given  in  Table 
2-2a  for  m=7. 

2-3. 5. 2  Urban  Geometry  Parameters 

Because  an  urban  area  has  an  exceedingly  complex  geometrical  struc¬ 
ture,  we  introduce  (1)  a  { conjectured)  shadow-f actor ,  S(e^,e  1,  given  by 

3(^,0^)  =  (cos  9.  +  cos  a  )  It  (It) 

(which  may  take  on  values  in  the  range  from  0  to  1  as  •*.  and  range  from 
maximum  values  of  s.  =  e  -  90°  to  minimum  values  of  ^  -  -r  =  0),  and  (2)  a 


Table  2-1  lb . 


Di rectional 


reflectance  data  for  asphalt. 


a 


ri  r 

V 

-i 

sr 

Ip 

er 

9r° 

ei=20 

9 .=40  6 

i=60 

9i=° 

6  i=20 

ei=40 

e  ,-=60 

0 

75 

0.0093  0 

.015 

0.047 

0.12 

0 

70 

0.0057 

0.021 

.014 

.022 

0.017 

0.065 

.053 

.13 

0 

60 

.025 

.027 

.020 

.020 

.050 

.057 

.052 

.080 

0 

50 

.025 

.025 

.020 

.022 

.039 

.043 

.041 

.068 

0 

40 

.025 

.029 

.023 

.036 

.032 

.040 

.039 

.094 

0 

30 

.028 

.019 

.027 

.017 

.032 

.023 

.041 

.039 

0 

20 

.020 

.025 

.031 

.013 

.021 

.028 

.043 

.028 

0 

10 

.026 

.023 

.022 

.018 

.026 

.025 

.029 

.037 

0 

.024 

.022 

.017 

.025 

.029 

.034 

180 

10 

.026 

.022 

.022 

.011 

.026 

,024 

.029 

.022 

180 

20 

.020 

.018 

.014 

.021 

.025 

.030 

180 

30 

.028 

.014 

.015 

.014 

.032 

.017 

.023 

.032 

180 

40 

.025 

.026 

.014 

.032 

.036 

.037 

180 

50 

.025 

.025 

.016 

.012 

.039 

.041 

.032 

.037 

180 

60 

.026 

.013 

.0069 

.052 

.028 

.018 

180 

70 

.0066 

.013 

.0053 

.019 

.050 

.031 

180 

80 

.0036 

.041 

aValues  of 

r.  read 

from  Wo-65a,  p. 

89,  Figure 

4-29,  PbSe  detector. 

Values  of 

fr 

computed  from  f 

=  r . 
r  ir 

/(cose-  cos  e  ). 

degree-of- 

urbanization  fac 

tor,  D ( 7 ) 

,  with  the 

rangn  P< 

0(7)  < 

1.  The  BRDF  for 

an  urban  area  wi  1 1 

be  defined  as 

!  f 

1 

l -  . 

r(m=7)  = 

D(7)eo7 

(0  S(oi , 

9r)  +  [l-D ( 

7 )  j 

given  by  Eq.  ( 

1)].  1  (17) 

Thus 

,  for 

0(7)  =  1, 

the  spectral  BRDF  corresponds  to  a 

diffuse  reflector  modi- 

fied  by  the  snadow 

factor 

S(ei,8r). 

For  D  ( 7  )= 

0,  the  spectral 

BRDF  corresponds 

to  a 

flat 

surface  with  average  directional-r 

.tance 

prope*" 

ties  of 

concrete 

ana  asphalt. 


The  directional-hemispherical  reflectance  defined  by  Equation  (5), 
vrth  f  given  by  Equation  (17),  is 
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Table  2-llc.  Relative  bidirectional  reflectance  distribution  functions 
for  concrete  and  asphalt. 


Concrete 


Asphal t 


* 

V 

O  | 

V 

CD  1 

j  ro 

1  o 

e  .=40 

6  ^  =60 

V 

V° 

9^=20 

6  .=40 

e.=60 

0 

80 

1.45 

1.50 

1.92 

3.25 

75 

1.62 

3.97 

0 

70 

1.00 

1.00 

1.42 

2.81 

70 

0.72 

2.60 

1.83 

4.30 

0 

60 

1.00 

0.92 

1.17 

2.28 

60 

2.13 

2.28 

1.79 

2.65 

0 

50 

1.09 

1.00 

1.25 

1.67 

50 

1.66 

1.72 

1.41 

2.25 

0 

40 

1.00 

0.92 

1.08 

1.32 

40 

1.36 

1.60 

1.34 

3.11 

0 

30 

1.09 

1.00 

1.17 

1.14 

30 

1.36 

0.92 

1.41 

1.29 

0 

20 

1.00 

1.00 

1.08 

0.96 

20 

0.89 

1.12 

1.48 

0.93 

0 

10 

1.00 

1.08 

1.00 

1.05 

10 

1.11 

1.00 

1.00 

1.22 

0 

1.00 

1.00 

1.14 

0 

1.00 

1.00 

1.13 

180 

10 

0.91 

0.92 

0.92 

0.96 

10 

1.11 

0.96 

1.00 

0.73 

180 

20 

1.00 

0.92 

0.88 

20 

0.89 

0.86 

0.99 

180 

30 

1.09 

1.00 

0.92 

0.96 

30 

1.36 

0.68 

0.79 

1.06 

180 

40 

1.00 

0.75 

1.14 

40 

1.36 

1.44 

1.22 

180 

50 

1.00 

0.83 

0.92 

0.88 

50 

1.66 

1.64 

1.10 

1.22 

180 

60 

1.09 

0.71 

1.08 

60 

2.21 

1.12 

0.62 

180 

70 

1.00 

1.00 

0.92 

70 

0.81 

1.72 

1.03 

180 

80 

1.42 

80 

1.36 

derived  from  data  in  Tables  2-lla  and  2-llb. 


<p^>  s  <pytx;e^  ,2i»;  0(7  )3>D (7  ^  ~  J"fr  cos  9r  dnr 
r  D<7  )  0 07 ( x )  /  S(9i,9r)  COS  9r  dnr 

+  [1-0(7)]  / [fr  given  by  Eq.  (1)]  cos  9r  dsir 
<p7>  »  0(7)  p0?(x)  j  J  (cos  9,-  +  cos  9 r )  cos  er  dnr 


+  [1-0(7]]  x!  G ( a-j ,  6-j ,  Yy ; ) 


<Oy>  ~  D  (7  )  pq7  ( x  ]  it  [j  cos  9.  +  j]  r  [  1  -D  ( 7  )  ]  py  ( x  ;0  ,2* ) , 


(18) 
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Of  ,  Degrees 

Figure  2— 11a.  Relative  BRDF  for  concrete. 


b3 


Relative  BRDF 
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The  directional  emissivity  (for  m=7,  at  a  zenith  angle  e)  defined  by 
Equation  (12)  with  pm(  \  ;a  ,2ir)  given  by  <p7>  (in  which  is  replaced  by  e)  is 

e<j(m=7  i  ?  <ed[iff=7,X,e;D(7)]>D(7) 


(12") 


ed(m=7)  =  1  -  (  H  oo7(x)  0(7)  +  y]  +  P7(x;e,2i>)tl-D(7)] 


119) 


Thus,  as  expected,  for  0(7)  =  1,  the  directional  emissivity  corresponds  to 
that  for  a  diffuse  reflector  modified  by  the  shadow-factor  quantity  (which 
ranges  from  1/3  for  0=90°  to  5/6  for  8=0°).  For  0(7 )  =0,  the  directional 
emissivity  corresponds  to  a  flat  surface  with  average  directional-emissivity 
properties  of  urban  materials. 


2-4  INTEGRATION  OF  THE  BRDF 


The  spectral,  directional-hemispherical  reflectance,  denoted  here  by 
p(0^,2n),  is  defined  [Ni-e-",  Wo-65a]  by  the  integral 

o(e1-,2ir)  =  f  fr  cos  er  dnr  (5') 


where  ff  is  the  bidirectional  reflectance-distribution  function  (BRDF).  We 
want  to  evaluate  this  integral  when  f  is  given  by  our  invented  expression  for 
the  BRDF,  given  by  Equation  (1): 


fr  =  frO,  D(m)  ,  x;  b  . ,  er>  *]  h  fp(ei ;  er,  *)  (20) 

fr  =  o0[l  +  Fy( 9 i >  er(y)  tU) 


with 


F^ ( 6  ^ )  i  F  (a,e^)  =  exp[-a  (cos  0^)YJ 


(21a) 
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(21b) 


er(u)  =  exp[-ayY] 


y  *  cos  er 

(21c) 

tu) 

=  RU)  exp[ -ae ( 1- j  1-2 4i/it j  >3 

( 2 1  d ) 

RU) 

=  R (0 )  -  ARy/w 

(21e) 

&R  = 

R(0)  -  R ( * )  . 

( 2  If ) 

For  symmetry  about  the  principal  plane,  we  can  write  Equation  ( 5 1 )  as 

U  1 

p(e^,2u)  =  2po  J“ d*  [1  +  exp(-ayT)rU)F^{  9.. )]  (22a) 

o  o 

IT 

=  2oo[7  +  W  /  <H>  *U)P2 T(a)]  (22b) 

o 

where 

1 

P2tU)  f  dpW  exp(-aU1')  (23) 

o 

P2j(<»)  =  —j’  [1-e  a(a+l)]  (23a) 

a 

P22(a)  =  •  (23b) 

For  the  ^-integral  ,  have 
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where 


5  /  d+ 


it/2  n 

/"  dip  exp(-2aBip/ii)R(ip)  +  J"  dp  exp[-2a8(n-P/it]R(p) 

o  w/2 


(24) 


i/2 


it  /2 


R (0 )  y  dip  exp(-2ae«i/n)  *  ~  y  dip  p  exp(-2aBp/«) 
0  0 


/aR  /* 

d4»  exp[-2a8(»-p)/it]  -  —  /  dp  P  exp[-2aB(it-p)/n] 


w/2 


tt/2 


(24a) 


R(0)  £  P^aB)  -  4  (ff  P21(aB) 


(24b) 


+  R(0)  |  PjtaB)  *  ^7  J  Cw  Pj(bB)  -  |  P21(aB»] 


=  iR  P  ^( aB  ) 


(24c) 


P^laB)  =  J  dy  exp(-aBy)  =  3J  [l-exp(-aB)] 


(25a) 


R  =  [R (0 )  +  R(*)]/2  . 


(25b) 


After  collecting  terms,  we  have 
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e(*v2*)  =  *pq  [  1  +  2  PjUb)  P^U)  R  F  (<*.8^3  ♦ 


(26) 


To  compute  <fr(0,0,*)>,  we  write 

<'f r( 0 , 0 , ^ >  5  pQ  [i  +  F^(0)  er;i)  (27) 

=  °0  [1  +  exp(-2a)  <*U)>]  (27a) 

wi  th 

n 

<?( ♦)>  =  7  f  d*  *U)  =  R  P^oB)  .  (27b) 

o 

2-5  SUBROUTINE  ESURF 

Subroutine  ESURF  provides  the  bidirectional  reflectance-distribution 
function  (BRDF),  directional  emissivity,  and  temperature  of  the  Earth's  sur¬ 
face  at  the  intersection  point  of  the  optical  1 i ne-of-sight.  Since  the  sur¬ 
face  category  is  not  automatically  correlated  with  the  geographic  position, 
the  user  must  select  one  of  seven  categories  provided. 

The  relationship  between  Subroutine  ESURF  and  the  routines  it  calls 
is  shown  in  Figure  2-12.  Table  2-12  summarizes  the  inputs  and  outputs  for 
Subroutine  ESURF. 
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LINEAR 


Figure  2-  .2.  Relationships  between  the  routines  in  the  Earth  Surface 
Characterization  Model. 
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Table  2-12.  Input  and  output  variables  for  Subroutine  ESURF 


INPUT  VARIABLES 


Argument  List 


THI 

THR 
PS  I 


ZKM 

MSM 


DD(M) 


Zenith  angle  of  sun  at  intersection  point  (P)  on  Earth's 
surface,  (radians) 

Zenith  angle  of  line-of-sight  (from  detector)  at  inter¬ 
section  point  (P)  on  Earthrs  surface,  (radians) 

Azimuth  angle  (at  intersection  point  (P))  of  vertical  plane 
through  line-of-sight,  measured  relative  to  the  solar  prin¬ 
cipal  piane  (i.e.,  vertical  plane  through  solar  ray).  A 
value  of  zero  for  PS  I  corresponds  to  forward  scattering, 
(radians) 

Altitude  of  surface,  (km) 

Index  M  for  category  of  surface  material. 

=1,  Lambertian  diffuse  surface  with  spectral ly- i ndependent 
reflectance  set  by  00(1)  and  emissivity  by  [1  -  DD (1)3. 
=2,  Water. 

=3,  Snow. 

=4,  Sand. 

=5,  Soil  . 

=6,  Foliage. 

=7,  Urban  material . 

Additional  descriptor  for  selected  surface  material. 

00(1)  =  Diffuse  reflectance  for  Lambertian  surface. 

Typical  value  is  0.1. 

D0(2)  =  Wind  speed,  (meters/sec) 

DD(3)  =  Snow-age  parameter,  between  the  limiting  values  of 

□  and  1  for  new  and  old  snow,  respectively. 

00 ( M )  for  M  =  4,  5,  6  not  used. 


(continued) 
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Table  2-12. 


Input  and  output  variables  for  Subroutine  ESlfllF  (Cont'd). 


SPCULR  - 


ZLAM  - 
I  DAY  - 


I F IRES  - 


ESURF1  - 


1)0(7)  =  Degree-of-urbanization  between  0  and  1,  for  which 

limits  the  spectral  BRDF  corresponds,  respec¬ 
tively,  to  (a)  a  flat  surface  with  average  direc¬ 
tional  -refl  ectance  properties  of  concrete  and 
asphalt  and  lb)  a  diffuse  reflector  multiplied  by 
a  shadow  factor  S (THI  ,THR  )-[cos  THI  +-  cos  THR]/2. 

Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface,  if  MSM  = 

2,  in  vtoich  case  the  variable  is  passed  to  Subroutine 
GLITTR. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Wavelength,  (ym) 

Index  for  diurnal  condition  at  Point  P. 

=  0,  Solar  zenith  angle  >  9G  deg. 

=  1,  Solar  zenith  angle  £  90  deg. 

Flag  for  inclusion  of  fireballs  as  sources.  In  N3R  Module, 

TPIRfS  =  0  always. 

=  0,  No  fireball  is  to  be  considered. 

>  0,  Fireballs  are  to  be  considered. 

Logical  variable. 

=  .TRUE.,  If  ESURF  is  called  for  the  first  time  from 
Subroutine  SURRAD  and  both  EPSD  and  TKS  are  wanted  in 
addition  to  SFR  as  outputs.  In  NBR  Module,  ESURF 1  = 
.TRUE,  always. 

=  .FALSE.,  If  ESURP  is  not  being  called  for  the  first  time 
from  Subroutine  SURRAD  and  a  recomputation  of  EPSD  and 
TKS  is  not  needed.  This  possibility  occurs  only  if 
Subroutine  SURRAD  is  used  as  a  utility  routine  with  fire- 
bal 1 s  as  sources . 


( cnnti nued) 
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Table  2-12.  Input  and  output  variables  for  Subroutine  ESURF  (Cont'd). 


ATMOUP  Coflinon 

TT  -  Ambient  atmospheric  temperature  at  altitude  ZKM.  (deg  K) 

OUTPUT  VARIABLES 
Argwnent  List 

SFR  -  Bidirectional  reflectance-distribution  function. 

=  frEM,  DD(M) ,  ZLAM;  THI,  THR,  PSI].  (1/sr) 

EPSD  -  Directional  emissivity 

=  1  -  Pm(ZLAM;  THR,  2*).  (dimensionless) 

TKS  -  Surface  temperature,  (deg  K) 

POSITH  Comtion 

(This  output  obtains  only  if  MSM=2  and  SPCULR=.TRUE . ) 

SPCLAT,  -  North  latitude  and  east  longitude  of  the  point  on  an 
S PC  LON  assumed  smooth  horizontal  surface  for  a  specular 

reflection  from  the  sun  to  the  detector  at  Point  V. 

( radians) 
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SECTION  3 


EARTH  SURFACE  CHARACTERIZATION:  WATER  SURFACE 


3-1  RADIANCE  FROM  A  ' 'IND-RUFFLEO  WATER  SURFACE 


3-1.1  Basic  Cox-Munk  Formula 


The  Cox-Munk  formula  [CM-54,  Equation  (9)]  may  be  rewritten  as 


o(id)  E  p(s) 

“  T“ 

4  COS  V  COS  8 


(1) 


where  L  is  the  spectral  radiance  of  the  sea  surface  in  the  1  ine-of-sight,  eU) 
is  the  Fresnel  specular  reflectance  of  water  for  radiation  of  wavelength  x  at 
angle  of  incidence  «,  t  is  the  zenith  angle  of  the  detector,  8  is  the  slope 
(or  tilt)  of  the  water  facet  required  to  give  a  specular  reflection  to  the 
detector,  E  (called  H  in  CM-54)  is  the  solar  spectral  irradiance  (normal  to 
the  solar  path)  at  the  sea  surface,  and  p( 6 )  is  the  probability  for  the  occur¬ 
rence  of  si  ope  8  . 


Steaelmann  and  Garvey  [SG-73b]  derive  an  equation  for  the  radiance 
which  differs  from  Equation  (1).  The  ratio  of  the  radiance  predicted  by  Ste- 
gelmann  and  Garvey  to  that  predicted  by  Cox  and  Munk  is 


cos  9  .  cos  3 
_  1 

'"CM  cos. 


(2) 


where  is  the  solar  zenith  angle.  Stegelmann  and  Garvey  seem  to  imply  that 
Equation  (1)  is  incorrect  owing  to  an  incorrect  coordinate  transformation.  We 
have  not  checked  all  of  the  work  in  detail,  so  we  don't  know  wnat  the  discre¬ 
pancies  are  due  to.  Since  the  Cox-Munk  formula  is  widely  used  in  the  litera- 
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ture,  we  will  continue  to  use  it  until  the  cause  of  the  alleged  error  is  iden¬ 
tified  more  explicitly. 


3-1.2  Slope  Distribution  Function 


Cox  and  Munk  [CK-54]  show  that  to  a  first  order  the  slopes  are  nor¬ 
mally  distributed  and  independent  of  wind  direction,  according  to 


p  exp[-(z  2  ♦  z  2 >/a2] 

lO  ' 


(3a) 


where 


rms  slope  regardless  of  direction 

azimuth  of  the  direction  of  steepest  ascent,  measured  clock¬ 
wise  from  the  sun 


az/ax  »  sin  a  tan  e 
az/ay  =  cos  o  tan  6 


(4a) 

(4b) 


so  that 


(3b) 


3-1.3  Relation  Between  Slope  Variance  and  Wind  Speed 


3-1.3. 1  Cox-Munk  Relation  (regardless  of  direction) 


Cox  and  Hunk  [CH-S4,  CM-56]  computed  the  mean  square  slope  ccmpo- 
2  2 

nents,  for  crosswind  (o  )  and  up/downwind  (^  ),  from  their  glitter  photo¬ 


graphs.  For  simplicity  we  shall  use  only  their  results  for  the  mean  square 
2  2  2 

slope,  o  =  oc  +  °l)  ,  regardless  of  wind  direction,  for  a  clean  surface  (as 
opposed  to  an  oil-slick  surface,  e.g.)- 


-3 


-  (3  +  5.14  W)  x  10'J  *  0.004 


(5) 


1 
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This  result  is  based  on  measurements  for  wind  speeds  from  about  0.3  to  about 
14  m/sec  [CM-56]. 

Since  one  might  expect  a  to  vanish  as  W  vanishes,  we  have  plotte..  the 
velocity-dependent  portion  of  Equation  (51, 

°Q  =  (0.00512  W)i/2  ,  (5a) 

as  the  dash-dot  line  in  Figure  3-1.  We  also  represent  Equation  (5)  in  Figure 
3-1  by  plotting 

a  =  (o02  +  0.C03)1/2  (5b) 

as  the  solid  line  and 

o±  =  (o2  ±  0.004)1/z  (5c) 

as  the  dashed  lines. 

3-1. 3. 2  Some  Useful  U' nd-Rel  ated  Conversion  Factors 

Relations  between  knots,  meters  per  second,  and  miles  per  hour  are: 

1  knot  =  0.5144  m/sec  =  1.151  mph. 

Relations  between  sea-states,  Beaufort  numbers,  and  wind  velocity  are  shown  in 
Figure  3-2  (adapted  from  Wu-69a). 

There  is  a  significant  altitude  variation  of  wind  which  must  be  kept 
in  mind  while  reading  the  sun-glitter  lHerature. 

Duntley  [Ou-54],  in  relating  his  measurements  of  the  distribution  of 
water  wave  slopes  (on  a  lake)  to  those  of  Cox  and  Munk  [CM-54]  (in  the  open 
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Figure  3—2.  Relations  between  sea-states,  Beaufort  numbers,  and  wind 
speed  (from  Wu— 69a). 

sea),  speaks  of  the  "customary  2-to-l  ratio  between  wind  speeds  measured  at  41 
feet  (12.5  meters)  above  the  mean  water  level  (as  for  CM-54)  and  8  inches 
[Du-54]  above  the  wave  crests." 

Cox  [Co-58]  relates  his  laboratory  measurements  to  those  of  Cox  and 
Munk  [CM-54].  Cox  states: 

"Measurements  of  wind  speed  in  the  tank  represent  average 
speed  tnroughout  the  air  channel;  it  may  be  estimated  that  the 
level  at  which  this  speed  is  reached  in  the  boundary  layer 
next  to  the  water  is  4  tc  8  cm  above  mean  water  level.  Hence, 
oceanic  measurements  of  wind  speeds  made  at  a  height  of  12.5  m 
must  be  reduced  by  a  large  and  uncertain  correction  factor 
before  a  useful  comparison  can  be  made.  1  assume  the  factor 
i  s 

this  assumes  (1)  a  logarithmic  velocity  profile  near  the 
water  in  both  tank  and  ocean,  (2)  an  effective  height  of  wind 
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observation  in  the  tank  of  6  cm,  and  (3)  a  roughness  length 

in  both  the  tank  and  ocean  of  0.1  cm." 

3-1. 3. 3  Limitations  on  the  Cox-Munk  Relation 

Strong  and  Ruff  [SR-70a]  state:  "Recent  results  from  Wu  [6.  Atmos. 

Sci .  26^,  408  (1969)]  show  a  sea-roughness  saturation  for  winds  above  15  m/sec, 
which  means  one  cannot  rely  on  a  changing  slope  distribution  at  higher  wind 
speeds." 

Time  does  not  permit  further  review  of  the  relation  between  slope 
variance  and  wind  speed;  some  additional  relevant  references  include  those  by 
Wu  [Wu-69a,  Wu-70,  Wu-71,  Wu-72a,  Wu-77]  and  Cox  [Co-74]. 

3-2  REFLECTION  GEOMETRY  FOR  A  SPHERICAL  EARTH 

Cox  and  Munk  assumed  a  flat  Earth  in  deriving  their  reflection  geo¬ 
metry.  We  want  to  consider  a  spherical  Earth.  Fortunately.  Levanon  [Le-71b] 
has  derived  the  necessary  equations  for  viewing  the  reflections  from  a  synchro¬ 
nous  satellite.  We  have  not  yet  verified  the  equations  in  detail;  so  far,  we 
have  only  determined,  by  examining  Levanon' s  simplified  formulas,  that  an  east 
longitude  relative  to  the  detector  is  positive  and  a  north  latitude  is 
positive.  Levanon  assumed  his  satellite  was  on  the  equator  and  at  zero-degree 
longitude.  Accordingly,  we  have  modified  some  of  his  definitions  so  as  to 
allow  for  an  arbitary  position  of  the  detector.  We  reproduce  these  (slightly 
modified)  definitions  and  formulas  from  Levanon's  Section  2  [Le-7lb],  Anyone 
studying  these  equations  should  consult  his  Figure  2  which  illustrates  the 
reflection  geometry. 

Levanon  has  considered  the  following  geometrical  question:  Given  the 
longitude  and  latitude  of  the  sun  and  detector  subpoints,  and  of  the  point  of 
reflection,  what  is  the  tilt  magnitude  and  direction  and  the  angle  of  inci¬ 
dence,  at  that  point  of  reflection? 


The  following  notation  is  adopted: 

0  -  the  center  of  the  Earth 

S  -  the  sun  subpoint 

V  -  the  detector 

P  -  the  point  of  reflection 

i  -  an  index  taking  values  s,  p,  i,  n 

Q.j  -  a  point  defined  by  the  sea  surface  and  a  vector  parallel  to 

i  and  starting  at  0 
e.j  -  north  latitude  of  i  (or  of 

*.,•  -  east  longitude  of  i  (or  of  Q^)  relative  to  that  of  V 

r  -  radius  of  Earth 

hd  -  altitude  of  detector 

hp  -  altitude  of  P  (if  a  lake,  e.g.) 

i  -  vector  between  the  detector  and  the  point  of  reflection 

n  -  the  normal  required  for  reflection  from  P 

a  -  the  northward  tilt  at  P 

*  -  the  eastward  tilt  at  P 

B  -  the  magnitude  of  the  total  tilt  at  P 

<*>  -  the  angle  of  incidence 

For  convenience  we  introduce 


Ed  =  {r  +  hp)/( *  +  V  ’ 


For  Point  Q^: 


=  tan 


-1 


■e  cos  e„  sin  *  n 

_ d  _ ! E- _ p  | 

l-C  ,  COS  8  COS  t 
d  P  p  J 


et  =  tan 


-1 


sin  0 
d  P 


2  2 

(1-2  €  j  COS  6  COS  4>  +  e  ,  COS  0  ) 

a  p  p  d  p 


T72 


(LI) 


(L2 ) 
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For  Point  Qn: 


®  =  tan 


-1 


r  cos  0 ^  sin  <t>t  +  cos  @s  sin  4>s"j 


COS  0J  COS  9t  +  COS  9S  COS  $s 


(L3) 


en  -  tan 


-1 


sin  e„  +  sin  e 
*•  s 


2  '  l  '  *■' — — — - — vn — * 

[cos  6t  +  COS  8S  +  2  COS  Bt  COS  6S  COS  (♦1”*sn  c 


(L4) 


At  the  point  of  relection  the  tilt  toward  the  east  is  given  by 


=  *n  '  *p 


(L5) 


and  the  tilt  toward  the  north  by 


0  =  0-  0 
n  p 


(L6) 


Since  $  and  0  are  orthogonal,  the  total  tilt  magnitude  is 


B  =  tan'1  [tan2  8  +  tan2  ♦]1/"2 


(17) 


and  the  angle  of  incidence  is 


tan  1  [tan2  (en  -  as)  +  tan2  ($n  -  ^l]1^2. 


(L3) 


In  Table  3-1  we  have  summarized  the  input  and  output  quantities, 
based  on  Levanon’s  equations. 


3-3  REFLECTANCE  AND  EMISSIVITY 

3-3.1  The  Bidirectional  Reflectance-Distribution  Function  (BRDF) 

The  BRDF  is  defined  as 


'0 


Table  3-1.  Input  and  output  quantities  for  reflection 
viewed  from  a  detector. 


Input  Quantities  (per  Levanon) 


Object 


Sun  subpoint  (S) 
Detector  subpoint  (V 
Reflection  point  (P) 


East  Longitude  North  Latitude 


♦;=o 

♦p 


Intermediate  Output  Quantities 


Quantity 


Longitude  of  Q 
Latitude  of  Q  1 


Symbol 

:■ 


Le-71b  Eg,  No. 

1 

2 


Longitude  of  Q 
Latitude  of  Qp 

Eastward  tilt  at  P 
Northward  tilt  at  P 


5  (9  )D 

6  ( 10  )C 


Final  Output  Quantities 


Quantity 


Symbol 


Tilt  magnitude  at  P 
Angle  of  incidence  at  P 


Le-71  Eg,  No. 

7  (ll)J 

8  (12) 


Values  relative  to  detector  subpoint  V' 


For  small-angle  approximation,  which  we  do  not  use. 


71 


(6) 


fr  =  L/(E  cos  9.) 

where  L  is  the  radiance  along  the  reflected  ray  and  E  cos  e •  is  the  irradiance 
on  the  (horizontal)  sea  surface.  By  using  the  Cox-Munk  formula.  Equation  (1), 
for  L/E,  we  have 


f 


r 


p( 6  ) 


cos  u  cos  a  cos  ai 


(7) 


(It  is  not  obvious  that  Equation  (7)  satisfies  the  reciprocity  law,  since  a 
and  id  have  a  very  complicated  dependence  on  the  coordinates.) 

3-3.2  The  Directional-Hemispherical  Reflectance 

The  directional-hemispherical  reflectance,  denoted  here  by  p(x;a^, 

2*),  is  defined  by  the  integral 

p U ; a .  ,2* )  ■  Jfr  cos  er  dnr  (8) 

with  fr  given  by  Equation  (7);  it  is  understood  that 

u  5  cos  e r ,  (9) 

Cwing  to  the  complexity  of  the  dependence  of  u  and  a  on  er,  we  assume  it  is 
impossible  to  perform  an  analytic  integration  indica'ed  in  Equation  (8). 

For  now,  we  shall  not  pursue  further  the  topic  of  directional-hemis¬ 
pherical  reflectance  for  a  wind-ruffled  sea.  We  were  interested  in  it  mainly 
as  a  self-consistent  way  to  get  the  directional  emissivity,  but  we  shall  con¬ 
tent  ousel ves  with  an  approximate  treatment  as  next  described. 
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3-3.3  The  Directional  Emissivity 


Since  we  are  unable  to  perform  an  analytic  integration  of  the  BRDF  to 
get  the  directional-hemispherical  reflectance  for  a  wind-ruffled  sea,  we  shall 
ignore  the  wind  and  compute  the  directional  emissivity  from  the  expression 
(sometimes  referred  to  as  Kirchhoff's  law) 


(10) 


where  p(e)  is  the  Fresnel  specular  reflectance  next  discussed  in  Section  3-3.4. 


We  note  that  Hall  [Ha-64b]  used  Equation  (10)  for  each  of  the  planes 
of  polarization  of  the  radiation  in  computing  the  polarized  emissivity  of 
(flat  and  calm)  water.  We  expect  that  Equation  (10)  will  provide  reasonable 
answers  even  for  a  wind- ruffled  sea  except  for  large  zenith  angles.  Perhaps 
one  can  later  make  an  improvement  for  such  large  zenith  angles.  Papers  by 
Saunders  [$a-67a,  Sa-68c]  may  be  helpful. 

3-3.4  Fresnel  Reflectance  of  Water 


3-3.4. 1  Introduction 


The  factor  p(w)  in  the  Cox-Hunk  formula.  Equation  (1),  is  the  Fresnel 
specular  reflectance  of  water  for  unpolarized  radiation  incident  on  a  plane 
surface  at  angle  of  incidence  The  Solar  Radiation  Model  (23e),  described 
in  Section  4,  provides  (at  the  top  of  the  atmosphere).  Here,  we  present 
the  Fresnel  equations  necessary  to  compute  p(w)  and  necessary  data  for  the 
complex  index  of  refraction  for  an  air-water  interface. 

3-3. 4. 2  Formulas 


We  need  the  formula  for  the  reflectance  p(“)  of  a  plane  electro¬ 
magnetic  wave  incident  at  an  angle  =  u  on  a  plane,  absorbing  surface 
(water).  For  an  unpolarized  wave,  and  a  complex  index  of  refraction  N, 
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N  =  n-ik. 


(ID 


where  n  is  the  index  of  refraction,  k  is  the  extinction  coefficient,  and  i  = 
/^l,  the  monochromatic  specular  reflectance  is  given  [Me-6Qa,  p.422;  AH-60; 
SC-66a,  p,63]  by  the  expression 


where 


=  r 


c  +  d 


s  c  +  2a+d  +  d2 


(12) 


r$  =  (c  -  2a+e  +  e^)/(c  +  2a+e  +  e£) 


(13a) 


„  2  2 
c  =  a+  +  a 


13b) 


d  =  sin  u  tan  « 


e  =  cos  w 


(13c) 

(13d) 


2  a?  =  C(n2-k2-sin2a)2  +  4nZkZ]1/2  t  (n2-k2-sin2*) 


( 13e) 


At  normal  incidence. 


o(o)  ■ 

( n+1 /  +  k 


(14) 


We  chose  the  Fresnel  formulas  as  given  by  Equations  (12)  and  (13) 
because  (1)  the  form  is  the  simplest  we  have  seen  and  (2)  three  different 
references  agree  on  the  formulas.  (Note  that  Me-60a  uses  N-n(l-ik)  instead  of 
N  =  n-ik.)  Relatively  simple,  but  different  formulas  are  given  by  Friedhian 
[Fr-69b ]  but  the  two  obvious  misprints  leaves  one  uncomfortable  without  verify¬ 
ing  the  overall  fc-mul as .  Hall  [Ha-64b]  also  gives  the  Fresnel  formulas  but 
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their  form  is  again  different  and  more  complicated  than  that  we  have  chosen. 
Other  references  include  Condon  and  Odishaw  [CO-58,  6-8,  6-113,-114],  Stratton 
[St-41],  and  Born  and  Wolf  [BW-75a].  Boudreau  [Bo-73b]  gives  the  Fresnel 
formulas  in  a  form  attributed  to  Stratton  [St-41], 

3-3. 4. 3  Complex  Index  of  Refraction  of  Water 

The  most  recent  values  of  optical  constants  for  (pure)  water  in  the 
infrared  are  those  given  by  Downing  and  Williams  [DW-75]  who  tabulate  n(v)  ana 
k(v),  the  real  and  imaginary  parts  of  the  complex  index  N  =  n  +  ik,  in  the 
range  from  x=2  yin  to  X  *  1  ran.  In  the  2-  to  5-um  range  of  interest  to  us,  221 
sets  of  data  are  given  for  wavenumbers  v=2QOQ(10)4000(50)5000,  entered  as  data 
statements  in  Subroutine  FRESNL. 

We  also  note  that  very  recently  Querry  et  al .  [QH-77]  determined  the 
complex  refractive  index  in  the  infrared  for  samples  of  surface  water  from 
five  widely  separate  locations:  San  Francisco  Bay,  the  Pacific  Ocean,  the 
Atlantic  Ocean,  the  Great  Salt  Lake  (Utah),  and  the  Dead  Sea  (Israel).  The 
variations  will  be  ignored  for  the  purposes  of  ROSCOE-IR. 

3-4  SLOPE -SHADOWING  FACTOR 

Cox  and  Munk  [CM-55,  p.  70;  CM-56,  o.  470],  in  computing  the  albedo 

of  direct  sunlight  from  a  rough  surface,  take  account  of  the  fact  that  large 

negative  slopes  in  the  component  zy  (where  the  y-azis  is  horizontally  aw3y 

from  the  sun)  are  shadowed  if  they  exceed  cot  a.,  with  9.  the  solar  zenith 

angle.  Cox  and  Munk  include  this  effect  by  setting  the  limits  to  be  (-cot  9.) 

and  (+*)  for  z  (but  i«  for  z  ).  Thus,  while  Cox  and  Munk  include  the  effect 

y  * 

in  their  albedo  calculation,  they  do  not  mention  the  effect  with  respect  to 
the  slope  distribution  function  p(3)  appearing  in  Equation  (1). 

Gordan  [Go-69b]  presents  a  formula,  derived  by  K.  3.  MacAdam,  for  the 
fraction  of  the  light  from  a  source  at  zenith  angle  9^  which  reaches  a  given 
point  on  the  sea  surface  without  having  first  intersected  the  water  surface  at 
some  other  point.  However,  in  presenting  his  formula,  Gordan  [Go-6'Tb,  p.2U] 
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fails  to  note  that  the  derivation  is  based  on  a  one-dimensional  distribution 
(instead  of  an  isotropic,  two-dimensional  distribution  as  we  would  like). 

Also,  Gordan  [Go-69b]  does  not  address  the  question  of  shadowing  effects  on 
the  reflected  ray. 

Saunders  fSa-67a,  Sa-68c]  has  derived  an  approximate,  slope-shadowi ng 
factor,  b*,  to  account  for  the  fact  that,  as  one  views  near  the  horizon,  the 
slopes  on  the  back  sides  of  the  waves  and  deep  in  the  troughs  are  hidden.  For 
two-dimensional  roughness,  the  factor  S*  is  stated  [Sa-67a,  p.  4648;  Sa-68c] 
to  be 


S*(er)  =  2  U  +  erf(v)  +  -J*  e'v  l'1  (15a) 

where  v,  given  by 

v  =  a  1  tan  -  er)  =  a”*  cot  er,  (15b) 

is  the  ratio  of  the  inclination  of  the  line-of-sight  to  the  root-mean- square 
slope  (regardless  of  direction)  and  er  is  the  zenith  angle  of  the  reflected 
ray.  Presumably  S*(er)  refers  to  only  the  reflected  ray  not  escaping  in  one 
pass. 


To  permit  a  "bistatic"  dependence  on  the  zenith  angles  of  both  the 
incoming  and  outgoing  rays,  we  propose  using  as  the  shadow  factor 


S(©  -  »er)  =  S ( e 1 )  S(er) 


(16) 


w\  th 


S(fl)  =  2  {1  +  erf ( y)  +  ~ 

V/¥ 


(17a) 
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V  =  o$  cot  8 


(17b) 


os  =  (5.12  X  10'3  W)1/2  .  (17c) 

For  numerical  reasons,  we  need  to  consider  some  limiting  cases: 

(a)  If  the  wind  speed  U  =  0,  we  set  S(e^,er)  =  1.0. 

(b)  If  9  <  ev2  s  tan-1  (0.5  os_1),  we  set  S ( e )  *  1.0.  The  introduc¬ 
tion  of  the  angle  e  ^  results  from  the  observation  that  the 
shadowing  factor  is  essentially  unity  for  v  >  2.  Thus,  there  is 
no  need  to  compute  the  shadowing  factor  unless  e  exceeds  the 
angle  (e^)  for  which  v=2,  for  a  given  wind  speed. 

(c)  If  (0.5*-9)  <  1. 745x10 ”3,  set  e  to  89.9  deg,  an  arbitrarily 
selected  value.  We  do  this  to  avoid  possible  division  by  zero 
or  near-'sro. 

3-5  SPECIAL  CASES 

3-5.1  Location  of  Specular  Point  for  Quiet  Surface  (no  wind)  on  Spherical 

Earth,  Given  Locations  of  Source  and  Detector 

Since  we  want  to  consider  cases  where  the  Earth-central  angle  between 
rays  to  the  sun  and  the  detector  is  not  necessarily  small,  we  cannot  use  the 
"lens"  equation  for  a  spherical  convex  mirror  (and  the  concomitant  paraxial 
rays)  to  aid  in  determining  the  reflection  point  but  must  resort  to  an  itera¬ 
tive  solution. 

3.5. 1.1  Algebraic  Equations  for  Specular  Point 

Assume  we  are  given  the  positions  (i.e.,  the  longitudes  and  latitudes 
of  the  subpoints)  of  the  detector  and  sun,  as  depicted  in  Figure  3-3  (Points 
V1  and  S’,  respectively).  The  total  central  angle  between  the  rays  DV  and  OS, 
i,  is  given  by 
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. . 


(19) 


and  for  each  triangle,  we  have 

cv  +  ev  +  y  =  11 
as  +  bs  +  y  -  *  • 

Thus,  from  Equations  (20a)  and  20b),  we  have 


(20a) 

(20b) 


(21 ) 


Now, 


ry  =.  r  +  hv  =  r  cos  ♦  sv  cos  sv 


(22a) 


r  =  r  +  h  =  r  -OS  a.  +  sc  cos  e_ 
s  S  S  S  a 

and 


sin  av  sin  sy  5in  y 


(22b) 


(23a) 


st 

*» 

sin  a? 


r 

*•  _  s 


$i  n  8  sin  i 
s 


(23b) 


(In  the  code,  r  is  the  Earth  radius  plus  the  altitude  assigned  to  the  Point 
P.)  By  eliminating  s  between  Equations  (?2a)  and  (23a)  and  s^  between  equa¬ 
tions  (22b)  and  (23b),  we  get 


8.) 


(24a) 


or 


sin  a 

rv  =  r  cos  %  +  r  iTTTe;  cos  Bv 


sin  a 

's  "  r  cos  as  +  r  TirT^  cos  6s 


-1  V 

Ev  =  pv  5  ~T  =  cos  av  +  sin  av/Un  \ 


-I  s  , 

e$  =  ps  s  ~  =  cos  a$  +  sin  a$/tan 


(24b) 


(24c) 


(?4d) 


or 


(24e) 

(24f) 


Thus  we  have  four  equations  ((19),  (21),  (24e),  and  (24f))  which  need  to  be 
solved  for  the  four  unknowns  !av,  as,  6y,  and  &s). 

In  presenting  the  equations  for  the  specular  point  we  have  referred 
to  the  sun  as  the  source.  Indeed,  that  is  the  case  within  the  NBR  Module. 
However,  in  the  original  development  of  the  specular  point  equations,  we 
wanted  to  allow  for  non-solar  sources  at  arbitrary  altitudes,  for  which  our 
specular-point  equations  are  valid. 

If  one  does  specialize  for  a  solar  source,  then  one  can  obtain  (with 
an  appropriate  approximation)  a  pai'-  of  equations  (or,  equivalently,  a  single 
transcendental  equation  if  the  user  prefers)  instead  of  the  set  of  fou-  equa¬ 
tions.  That  is,  for  a  solar  source,  as  in  Section  5-2.2. 1  where  we  obtain  the 


Bv  =  tan  1  [ev  sin  ay  ( l-ev  cos  oy)  l] 

Bs  -  tan  1  [e  sin  ( 1-e s  cos  as)_1]  • 
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solar  zenith  angle,  we  can  assume  that  the  solar  ray  to  the  reflection  point 
is  essentially  parallel  to  the  ray  to  the  subsolar  point,  an  approximation 
implying  that  the  angle  8g  is  essentially  zero.  Thus,  in  Equation  (21),  if  we 
set  ss  equal  to  zero  and  eliminate  by  use  of  Equation  (19),  we  obtain 

<XV  =  (a  -  3v)/2  .  { 24 g ) 


Thus  we  have  two  equations  ((24e)  and  (24g))  which  need  to  be  solved  for  the 
two  unknowns  (ay  and  8v).  Of  course,  one  can  eliminate  av  between  these  two 
equations  if  he  prefers.  An  iterative  solution  of  the  pair  of  equations 
should  be  analogous  to  that  described  in  Section  3-5. 1.2,  but  we  have  not 
implemented  such  a  solution. 

3-5. 1,2  Iterative  Solution  of  Specular-Point  Equations 

By  using  Equations  (19),  (21),  (24e),  and  (24f),  we  find  the  condi¬ 
tion  to  be  satisfied  is 


E(av)  =  a  -  2av  +  tan" 


.^s  cos  “s 


-  tan 


-1 


Ev  sin  av 


l'ev  cos  “VJ 


-  0  .  (25) 


NOW, 


COS  a ^ 


dF(a  ) 

d~  *  =  -2  +  - 

v  1+es  -  2ts  cos  as 


e  COS  a 
V  V 


1+e  -  2c  COS  a 

V  V  V 


(26) 


According  to  the  Newt'- n-Saphson  method,  our  iteration  formula  is 


( n+1 )  (r.)  F(av  ’ 

%  *\  '  ^rnrr,  * 

F  J  v  ] 


(27) 
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It  remains  to  choose  a  starting  value,  >  to  be  used  in  Equation 
(271.  To  do  so,  we  start  with  Equation  (21)  and  substitute  for  ev  and  es 
their  small-angle  approximations  from  Equations  (24e)  and  (24f).  Thus  we  get 


a  + 

V 


a 


a  + 
v 


(28) 


By  solving  Equation  (28)  for  in  terms  of  a,  cv,  and  es,  we  get 


1-e 


d-cv)  +  (l-^g 


Our  iterative  procedure  now  becomes 


(0)  _ 


v 

(1-^1  +  (T"-7*T 


(0) 


(O' 


as  =  a  -  av 


8^  =  From  Equation  (24e) 


B^  =  From  Equation  (24f) 


F(o^)  -  From  Equation  (25) 


<01 

F'Uy  ')  *  From  Equation  (26) 


F(  (U)) 

(1)  _  (0)  F(% 

\  ‘  %  ‘  "  '  TOT, ' 

F  l’v  I 


(29) 

(29a) 

(30a) 

(30b) 

(30c) 

(30d) 

( 30e) 

(30f  S 
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1 1 ) 

We  now  put  ay  into  Equation  {30a)  and  continue  the  looping  over 
Equations  (30)  until  we  satisfy  the  condition 

<4n)  +  -  <4n)  +  esn>)  5  6<n)  i  2  x  10'5  *  (31) 

3-5. 1.3  Angle  of  Incidence  and  Reflection 

From  Figure  3-4  and  Equation  (20a),  we  have 

ui  =  *-y  ~  ay  +  8y  ,  {32) 

with  ay  and  By  given  by  the  iterative  solution  in  Section  3-5. 1.2. 

3-5. 1.4  Geographic  Coordinates  of  Specular  Point 

Determination  of  the  geographic  coordinates  of  the  specular  point, 
given  those  for  the  sun  and  detector  and  the  central  angles  a  and  ay,  is  pro¬ 
vided  by  Subroutine  GCRCLE,  discussed  in  Section  3-6.5. 

3.5-2  Radiance  and  BRDF  for  Specular  Reflection  from  Smooth  Water 

To  obtain  the  radiance  for  specular  reflection  from  a  smooth  water 
surface,  one  car  follow,  e.g.,  the  detailed  development  (given  for  another 
purpose)  by  Cox  and  Munk  [CM-54]  or  immediately  write  the  answer  by  assuming 
conservation  of  radiance  for  reflection  from  a  perfect  reflector.  For  the 
latter  alternative  we  ha^®  for  the  specular  radiance 

'"spec  =  <“> 

where  p(u)  and  E  are  the  same  as  in  Equation  (II  and  c  is  the  angular  radius 
of  the  sun  (16.0  minutes). 


The  BRUF  corresponding  to  Equation  (33)  is  defined  to  be 


f 

r 


Lspec/(“  cos  9i> 


(34) 


so  that 


f 

r 


p(w)/(it 


2 


COS  0^)  . 


(34a) 


3-5.3  A  Limiting  Form  of  Basic  Cox-Munk  Formula 

The  Cox-Munk  basic  formula.  Equation  (1),  explicitly  including  the 
formula  for  the  probability  for  the  occurrence  of  slope  8,  is 


'CM 


_  O  (  W  ) 


cos  u  cosV 


exp( 


■a  1  tan2  s) 


(35) 


For  a  zenith  sun  and  downward- looking  detector,  the  slope  is  zero  and  the 
zenith  angle  of  the  reflected  ray  equals  the  angle  of  incidence,  i.e., 


B  -  0 
u  =  ui  “  0 , 


so  that 


lcm(b=<}) 


t(0)  E 

IT'  ' 


.  ab  , 


We  note  that  this  radiance  is  smaller  than  the  specular  value  given  by  Equa¬ 
tion  (33)  by  the  ratio 


LCM<e=°) 


L. 


spec 


(37) 


since 


(4.65  x  10~3)2 
(3  +  5.12VJ)  x  10'3 


«  1  . 


(38) 


The  ratio  given  by  Equation  (37)  will  be  obtained  in  another  way  in  Section 
3-5.4. 


3-5.4  Relation  Between  Radiances  from  Smooth-  and  Rough-Water  Surfaces 

Saunders  [Sa-67,  p.  4116]  makes  a  simple  estimate  of  the  radiance 
reflected  from  a  rough-water  surface  compared  with  that  from  a  smooth-water 
surface.  Be  notes  that  the  angular  radius  of  the  glitter  pattern  is  approxi¬ 
mately  2 a  (as  is  readily  seen  from  Figure  3-5)  and  hence  the  solid  angle  it 
subtends  is  *(2a)  ,  where  a  is  the  root-mean- square  slope.  The  solid  angle 
subtended  by  the  mirror  image  of  the  sun  is  [according  to  Saunders]  where 

£  is  the  angular  radius  of  the  sun's  disk.  (Saunders  did  not  account  for  the 
solid  angle  of  the  mirror  image  of  the  sun  being  reduced  for  an  observer  at 
high  altitudes,  as  explained  below.)  Saunders  then  states  that  if  the  total 
radiant  energy  reflected  from  the  surface  is  independent  of  roughness  (an 
assumption  conmented  upon  below),  then  the  ratio  of  the  intensity  in  the 
glitter  pattern  to  the  intensity  in  the  mirror  image  is  in  the  inverse  ratio 
of  the  solid  angles  that  they  subtend,  namely.  It /2a)  .  Note  that  this  ratio 
is  just  the  ratio  given  by  Equation  (37). 

A  smooth-water  surface  on  the  spherical  Earth  acts  like  a  convex 

spherical  mirror  of  radius  R  The  virtual  image  of  the  sun  is  formed  at  a 

depth  R  /2  below  the  surface  and  the  size  of  the  sun's  radius  in  this  image  is 
c  2 
c  Hg/2.  The  area  of  the  virtual  image  is  «U  R^/2)  and  the  solid  angle  at 

the  observer,  at  an  altitude  h  from  the  mirror  surface,  is 


(f  te/2)2 
(h  a  1e/2)? 


R  J  'l  1 

C _ _ 

h  *  V  2  i 


(39) 


Figure  3—5.  Geometry  for  simple  estimate  of  angular  radius 
of  glitter  pattern. 

for  h  *  0  (39a) 

|  ne2  (Re/2h)2  for  h  »  Re/2  .  (39b) 

The  assumption  made  above  by  Saunders  -  that  the  total  radiant  energy 
reflected  from  the  surface  is  independent  of  the  roughness  -  is  adequate  for 
the  order-of-magni tude  estimate  being  made  but  it  is  not  strictly  correct. 

Cox  and  Murk  [CM-55,  Section  3;  CM-56]  show  that  the  elbeao  of  a  rough  surface 
to  direct  sunlight  is  slightly  larger  at  high  sun  angles  and  substantially 
smaller  at  low  sun  angles  than  the  albedo  of  a  flat  surface. 
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SUBROUTINES  FOR  CHARACTERIZATION  OF  HATER  SURFACE 


The  relationship  between  the  routines  characterizing  a  water  surface 
and  Subroutine  ESURF  (for  non-water  surface  characterization)  is  shown  in 
Figure  2-12. 

3-6.1  Subroutine  GLITTR 

Subroutine  GLITTR  is  called  from  Subroutine  ESURF  when  the  line-of- 
sight  from  the  detector  (either  a  fictitious  one  at  Point  V  in  the  NBR  Module 
or,  more  generally,  a  real  detector  which  may  be  in  a  satellite)  intersects  a 
wind-ruffled  water  surface  prescribed  by  the  user.  Subroutine  GLITTR  provides 
(la)  the  bidirectional  reflectance-distribution  function  (BRDF)  for  the  wind- 
ruffled  water  surface  and  (lb)  the  directional  emissivity  of  a  smooth-water 
surface  as  an  approximation  to  that  for  the  wind-ruffled  water  surface  at  the 
intersection  (Point  P)  of  the  optical  1 ine-of-sight  from  the  detector  ana,  if 
requested  (by  the  logical  variable  SPCULR  =  .TRUE,  in  the  argument  list),  (2) 
the  geographical  coordinates  of  the  point  on  an  assumed  smooth  horizontal 
surface  (taken  to  be  at.  the  same  altitude  as  Point  P)  for  a  specular  reflec¬ 
tion  of  a  ray  from  the  source  to  the  detector.  Only  the  directional  emis- 
sivity  at  Point  Pis  provided  if  there  is  no  source. 

See  Table  3-2  for  a  summary  of  inputs  and  outputs  for  Subroutine 
GLITTR  and  Figure  3-6  for  a  chart  of  information  flow  within  Subroutine  GLITTR. 

3-6.2  Function  CANGLE 

Function  CANGLE  is  called  from  Subroutines  RINOUT  and  Gi 1TTR  to  com¬ 
pute  the  Earth-central  angle,  CANGLE,  between  two  central  rays  to  Points  Pi 
and  P2,  given  the  latitudes  and  longitudes  of  Points  PI  and  P2.  Application 
of  the  cosine  law  for  a  side  of  the  spherical  t-iangle  P1-N-P2  in  figure  3-7 
gives  the  relation 

cos  '  cos  cos  1 2~ e  ? 1  *  sin  sin  *  2  ~  *  i ' 


Table  3-2.  Input  and  output  variables  for  Subroutine  GLITTR. 


INPUT  VARIABLES 
Argument  List 
THETI  - 

WIND  - 
SPCULR  - 


ZLAM  - 
I  DAY  - 

IF  IRES  - 


ESURF1  - 


TECTOR  Common 

OETALT ,  - 

DETLAT, 

OETLON 


Zenith  angle  of  the  source  at  the  intersection  point  (?)  of 

the  1 ine-of-sight  from  the  detector  to  the  Earth's  water 

surface,  (radians) 

Kind  speed  at  41  feet  above  sea  level,  (meters/sec) 

Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
for  an  assumed  smooth  surface. 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Wavelength,  (^m) 

Index  for  diurnal  conditions  at  Point  P. 

=  0,  Solar  zenith  angle  >90  deg. 

=  1,  Solar  zenith  angle  £90  deg. 

Flag  for  inclusion  of  fireballs  as  sources. 

=  0,  No  fireball  is  being  considered  (always  the  case  in 
the  NBR  Module). 

>  0,  Fireballs  are  being  considered  as  sources. 

Logical  variable. 

=  .TRUE.,  If  Subroutine  ESURF  is  called  for  the  first  time 
from  Subroutine  SURRAD  and  EPSD  is  wanted  as  an 
output  (always  the  case  in  the  NBR  Module). 

=  .FALSE.,  If  Subroutine  ESURr  is  not  being  called  for  the 
first  time  from  Subroutine  SlRRAD  and  a  recom¬ 
putation  of  EPSD  is  not  needed. 


Detector  (at  Point  V)  altitude,  north  latitude,  and  east 
longitude,  (km,  radians,  radians) 

( conti nued) 
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Table  3-2.  Input  and  output  variables  tor  Subroutine  GLITTR  (Cont'd). 


OETZEN  -  Detector  (at  Point  V)  zenith  angle  at  Point  P.  (radians) 

POSITN  Common 

POSALT, 

POSl AT , 

POSION 

SOURCE  Comnon 

SRCALT  -  Altitude  of  source,  if  not  the  sun.  (km) 

SRCLAT,  -  North  latitude  and  east  longitude  of  source  (sun  in  NBR 
SRCLON  Module,  or  fireball,  more  generally),  (radians) 

SRCFLG  -  Flag  characterizing  source. 

=  1,  Sun  is  source  (always,  in  NBR  Module). 

3  2,  Fireball  is  source  (never,  in  NBR  Module). 

OUTPUT  VARIABLES 
Argument  l.i  st 

SFR  -  3 (directional  refl ectance-distribution. function  for  a  wind- 
ruffled  water  surface  at  Point  P.  (sr  1 ) 

EPSD  -  Directional  enissivity  (of  a  smooth-water  surface  as  an 

approximation  to  that  for  a  wind-ruffled  surface)  at  Point 
P  toward  the  detector  at  Point  V.  (dimensionless) 

POSITN  Conunon 

(This  output  obtains  only  if  SPCULR  -  .TRUE.) 

SPCLAT,  -  North  latitude  and  east  longitude  of  the  point  on  an  assumed 
SPCLON  horizontal  surface  for  a  specular  reflection  from  the 

source  to  the  detector  at  Point  V.  (radians) 


-  Altitude,  north  latitude,  and  east  longitude  of  intersection 
on  Earth's  surface  (Point  P)  of  1 ine-of-sight  from  detector 
(at  Point  V).  (km,  radians,  radians) 
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Figure  3—7.  Earth  geometry  used  in  deriving  formulas  tor  Function 
CANGLE  and  Subroutine  GCRCLE. 


COS  a 


12 


=  sin  6j  sin  *  cos  cos  e2  cos  U2-ij) 


or 

CANCLE  = 
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-  cos"^  [sin  P1LAT  sin  P2LAT  +  cos  P1LAT  ccs  P2LAT  cos  (P2l.0N-Pll.0N)]  . 
See  Table  3-3  for  a  sunmary  of  inputs  and  outputs  for  Function  CANGLE. 

Table  3-3.  Input  and  output  variables  for  Function  CANGLE. 


INPUT  VARIABLES 

Argument  List 

P1LAT,  -  North  latitude  and  east  longitude  of  Point  Pi-  (radians) 
PI  LON 

P2LAT,  -  North  latitude  and  east  longitude  of  Point  Po-  (radians) 
P2L0N 

OUTPUT  FUNCTION 

CANGLE  -  Earth-central  angle  between  rays  to  Points  Pj  and  P^- 
(radians) 


3-6.3  Function  ERF 

Function  ERF  is  the  error  function,  based  on  the  rational -approxi¬ 
mation  formula  (7. 1.2.6)  in  AS-64. 

3-6.4  Subroutine  FRESNL 

Fresnel  specular  reflectance  of  a  (smooth)  water  surface  is  discussed 
in  Section  3-3.4.  In  Subroutine  FRESNL,  the  complex  index  of  refraction  of 
water  as  given  by  Downing  and  Williams  LDW-7 b ]  is  stored  as  data  and  the  Fres¬ 
nel  reflectance  is  computed  from  Equations  (12)  through  (13e)  in  Section 
3-3.4.  Table  3-4  summarizes  the  inputs  and  outputs  for  Subroutine  FRESNL. 
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Table  3-4.  Input  and  output  variables  r  Subroutine  FRESNL. 


INPUT  VARIABLES 

Argument  List 

ZLAM  - 

Wavelength,  (um) 

OMEGA  - 

Angle  of  incidence  (with  respect  to  normal  to  smooth  ele¬ 
ment  of  water  surface),  (radians) 

OUTPUT  VARIABLE 

Argument  List 

RHO  - 

Fresnel  monochromatic  reflectance  of  plane,  unpolarized 
electromagnetic  wave  incident  at  angle  w  on  plane,  ab¬ 
sorbing  surface  of  water  with  complex  index  of  refraction 
N=n-ik  obtained  from  Downing  and  Williams  [DW-75].  (di¬ 
mensionless) 

3-6.5  Subroutine  GCRCLE 

For  three  points  P^,  and  P^  on  a  great  circle.  Subroutine  GCRCLE 
computes  the  latitude  and  longitude  of  the  intermediate  point  P^,  given  the 
latitudes  and  longitudes  of  the  end  points  Pj  and  P^,  the  central  angle 
between  the  central  rays  to  and  P3,  and  the  central  angle  between  the 
central  rays  to  and  P^. 

Application  of  the  cosine  law  for  a  side  of  the  spherical  triangle 
P 1 -N - P ^  in  Figure  3-7  gives  the  relation 

cos  (-2~e3)  =  cos  a13  cos  +  sin  a13  sin  cos  a 


or 


cos  A 


sin  -  cos  sin 
sin  cos  0^ 
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Similarly,  for  triangle  Pj-N-P2  in  p'i9ure  3'7»  we  have 


cos  (-|-e2)  3  cos  a12  cos  +  sin  a  12  sin  (r0i'  cos  x 

or 

sin  =  cos  s'n  +  sin  ai2  cos  e\  cos  x  * 

Application  of  the  sine  law  to  the  spherical  triangle  P^-N-Pg  in  Figure  3-7 
gives 


sin  (*  - 

.  sin  X 

sin  &  ^ 

sin(-^-e2 ) 

or 

sin  U2-*i) 

3  sin  a ^2  sin  x/cos  a2- 

Thus, 

*2  =  *1  +  U 

2'*^  x  SIGN!  1 .0,  j )  • 

If 

1  >  «  » 

4*2  -  i a* ^  ^  x  SIGNd.O. 

If 

t2  <  o.o, 

^2  ~  ^2  +  ’ 

If 

$ 2  Hit , 

$  2  —  1 2  —  t-n  * 

See  Table  3-5  for  a  summary  of  the  inputs  and  outputs  for  Subroutine 

GCRCLE . 
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Table  3-5.  Input  and  output  variables  for  Subroutine  GCRCLE . 


INPUT  VARIABLES 
Argument  Li st 

PlLAT,  -  North  latitude  and  east  longitude  of  Point 
PILON 

P3LAT,  -  North  latitude  and  east  longitude  of  Point  I 
P3L0N 

ALP13  -  Earth-central  angle  between  rays  to  Points  1 
( radians) 

ALP12  -  Earth-central  angle  between  rays  to  Point  P 
( radians) 

OUTPUT  VARIABLES 
Argument  list 

P2LAT,  -  North  latitude  and  east  longitude  of  Point  i 
P2L0N 


Qfi 


(radians) 
3.  (radians) 

i  and  P3’ 
and  P2 . 

2.  (radians) 


SECTION  4 


SOLAR  RADIATION 


4-1  INTRODUCTION 

4-1.1  Requirements  for  the  Model 

Solar  radiation  must  be  modeled  because  it  is  a  source  of  sensor 
illumination,  and  atmospheric  and  fireball  species  excitation,  through  scatter¬ 
ing  and/or  reflection  from  the  Earth's  surface,  clouds,  aerosols,  and  dust, 
either  naturally  occurring  or  caused  by  the  fireball. 

4-1.2  Model  Function 

The  Solar  Radiation  Model  (23e)  consists  of  a  statement  of  the  solar 
spectral  irradiance,  at  the  top  of  the  Earth's  atmosphere,  in  the  spectral 
range  from  2  to  5  um  (or  5000  to  2000  cm-1). 

4-2  DATA  BASE 

As  a  result  of  extensive  work  by  NASA  related  to  the  design  of  space 
vehicles,  an  engineering  standard  for  solar  irradiance  has  been  adopted  by  the 
American  Society  of  Testing  and  Materials  (ASTM)  [Th-74a,  Th-76].  We  have 
adopted  the  tabular  data  presenter  by  Thekaekara  [Th-74a].  Columns  1  and  2  in 
Table  4-1  present  data  abstracted  fom  Table  I  of  Th-74a  in  the  spectral  range 
from  2  to  5  pm  at  0.1  pm  intervals.  These  data  are  plotted  in  Figure  4-1  as 
the  circled  points  and  have  been  fitted  by  the  following  piecewi se-conti nuous 
power-law  expression: 
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Table  4-1,  Solar  spectral  irradiance  (2  to  5  yin) . 


> 

E  3 

E  b 

E  d 

E  e 

E  f 

A 

A 

X 

A 

' ) 

u 

u 

Percent0 

lf'  photon 

1C^  photon 

10~7  W 

2 

2 

2 

2  -1 

2  -1 

-1 

m  um 

Itl  yffl 

Error 

cm  sec  ym 

cm  sec  cm 

cm  cm 

cm 

2.0 

103 

104.62 

1.5 

10.4 

4.15 

41.2 

5000 

2.1 

90 

90.61 

0.7 

9.51 

4.20 

39.7 

4762 

2.2 

79 

79.00 

U.Q 

8.75 

4.23 

38.2 

4545 

2.3 

69 

69.30 

0.4 

7.99 

4.23 

36.5 

4348 

2.4 

62 

61. 13 

-1.4 

7.49 

4.31 

35.7 

4167 

2.5 

55 

54.20 

-1.5 

6.92 

4.33 

34.4 

4000 

2.6 

48 

48.29 

0.6 

6.28 

4.25 

32.4 

3846 

2.7 

43 

43.20 

0.5 

5.84 

4.26 

31.3 

3704 

2.8 

39 

38.81 

-0.5 

5.50 

4.31 

30.6 

3571 

2.9 

35 

35.00 

0.0 

5.11 

4.30 

29.4 

3448 

3.0 

31 

29.90 

-3.7 

4.68 

4.21 

27.9 

3333 

3.1 

26.0 

25.67 

-1.3 

4.06 

3.90 

25.0 

3226 

3.2 

22.6 

22.15 

-2.0 

3.64 

3.73 

23.1 

3125 

3.3 

19.2 

19.19 

0.0 

3.19 

3.47 

20.9 

3030 

3.4 

16.6 

16.71 

0.6 

2.84 

3.28 

19.2 

2941 

3.5 

14.6 

14.60 

0.0 

2.57 

3.15 

17.9 

2857 

3.6 

13.5 

13.33 

-1.2 

2.45 

3.17 

17.5 

2778 

3.7 

12.3 

12.21 

-0.7 

2.29 

3.14 

16.8 

2703 

3.8 

11.1 

11.21 

0.9 

2.12 

3.07 

16.0 

2632 

3.9 

10.3 

10.31 

0.1 

2.02 

3.08 

15.7 

2564 

4.0 

9.5 

9.50 

0.0 

1.91 

3.06 

15.2 

2550 

( continued) 
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Table  4-1. 

Solar  spectral  irradiance  (2  to  5  pm) 

(Cont'dl. 

1 

E  a 

X 

U 

E  b 

X 

U 

Percentc 

E  d 

X 

10 16  photon 

E  6 

wJ 

10 13  photon 

_  f 

t 

w 

10'7  W 

UJ 

pm 

um 

v?  pm 

Error 

2 

cm  sec  pm 

2  ~1 
cm  sec  cm 

crn^  cm" 3 

cm  3 

4.1 

8.70 

8.58 

-1.4 

1.80 

3.02 

14,6 

2439 

4.2 

7.80 

7.77 

-0.4 

1.65 

2.91 

13.3 

2381 

4.3 

7.10 

7.05 

-0.7 

1.54 

2.84 

13.1 

2326 

4.4 

6.50 

6,42 

-1.3 

1.44 

2.79 

12.6 

2273 

4.5 

5.92 

5.85 

-1.2 

1.34 

2.72 

12.0 

2222 

4.6 

5.35 

5.34 

-0.1 

1.24 

2.62 

11.3 

2174 

4.7 

4.86 

4.89 

0.6 

1.15 

2.54 

10.7 

2128 

4.8 

4.47 

4.48 

0.3 

1.08 

2.49 

10.3 

2083 

4.9 

4.11 

4.12 

0.2 

1.01 

2.43 

9.87 

2041 

5.0 

3.79 

3.79 

0.0 

0.954 

2.38 

9.47 

2000 

aFrom 

Th-74a, 

Table  I 

. 

Computed  from  fit  function.  Equation  (1). 

'Percent  error  in  f i t- function  values  with  respect  to  Column-?  data. 
3 

Computed  from  Equation  (4)  and  Column-2  data, 

& 

“Computed  from  Equation  (51  and  Column-2  data. 

^Computed  from  Equation  (6)  and  Column-Z  data. 
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Solar  Spectral  I  rradiance,  W  m  z  jjm' 


Figure  4—1. 


Solar  spectral  irradiance  from  2  to  5  (units  of 
W  ^  ), 
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where 


E,  -,  ( x  /2 . 2 )  ‘ 

C  ,  L- 


E29(x/2.9)l 


E  ^ ( W  m-2  ym  1 )  =  ^ 


a  = 


b  = 


1°9  E29  -  log  E22 
log  2 79  -  log  2.2 


■~iog  3.5,  -  1  og 779" 


log  E  0  -  log  E3  5 
c  -  ~T7Tg  4-0  -~Wn 


d  = 


log  E50  -  log  E40 
log  5.0  -  log  4.(1 


2.0  <  x  <  2.9 

2.9  <  x  <  3.5 


(la) 

(lb) 


35(>/3.5)c 

3.5  <  X  <  4.0 

(lc) 

4.0  <  X  5  5.0 

(Id) 

-  =  -  2.94693 

(2a) 

1  =  -  4.64938 

(2b) 

-  =  -  3.21819 

(2c) 

-  =  -  4.11809 

(2d) 

E2.2  *  79 


E2.9  "  35 


E3.5  =  14’6 


E4.0  =  9’5 


E5 .0  =  3*79 


(3a) 

(3b) 

(3c) 

(3d) 

( 3e) 
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Evaluation  of  the  fit  function  gives  the  values  and  percentage  error's  ’ n 
Columns  3  and  4  of  Table  4*1,  respectively. 

By  using  the  conversion  relations  derived  in  Section  4-4,  we  can 

2 

convert  the  units  of  the  soectral  irradiance  f>"om  E . f W / { m  jin)]  to  E  [photon/ 

2  '  *  x 
(cm  sec  am)]  by  writing 


photon 

-  r 

w 

2 

*"  X 

2 

cm  sec  am 

m  urn 

-A  Photon 

(10  /hc)x  W  sec 

(102  cm/m) 2 


or 


r 

i 


r 


photon 

2 

cm  sec  urn 


I 


5.03404  x  1014  v  Ex 


(4) 


Tne  product  he  is  expressed  in  units  of  J  cm  and  x  in  am.  Similarly,  we  can 
2  2-1 

convert  from  E  [W/(m  urn)]  to  E  [photon/(cm  sec  cm  )]  by  writing 

X  CO 


photon 

W 

“  d 

^  X 

T~ 

cm  sec  an 

m  ym 

(10‘4/hc) 


(10“"  cm/m)2 


photon 
>  W  sec 

inr;  -t  -t;-~ 

10  x  cm  /am 


or 


photon 

~l  n- 

cm  sec  cm 


=  5.03404  x  10 


10  ^ 


H 

— 
m  ym 


(5) 


2  .  _  2-1 

lie  can  convert  from  E  [W/(m  am)j  to  E  [W/dm  cm  )]  by  writing 

X  EJ 


E 

W 

=  C 

w 

a) 

2  -T 

cm  cm 

m  ym 

— 2 - 2  V  ^7  n 

(10  cm/m)  10  x  cm  ,'mn 
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(6) 


r 

W _ 

-  ip-8  -.2  f 

\ 

w 

T 

-I 

—? 

, 

cm 

cm 

n '  urn 

•?  2  - 1 

The  quantities  E . [pnoton/( cm"  sec  ^p)],  E  [photon/(cn<  sec  cn  )j,  and  E  ['«'/ 

2-i  *■ 

(cm  cm  1]  are  given  in  Columns  5,  6,  and  7  of  Table  4-1,  respectively,  and 
are  plotted  in  Figures  4-2,  4-3,  and  4-4,  respectively- 

4-3  SUBROUTINE  SOLRAO 

for  Subroutine  SOLRAO,  see  Table  4-2  for  a  summary  of  tne  input  and 
output  variates  and  Figjre  4-^  for  a  flow  chart. 

Table  4-2.  Input  id  output  variables  for  Subroutine  SOLRAO, 

INPUT  VARIABLES 

Argument  List 

<  -  Index  specifying  units  for  input  and  output 

(Wavenumber  (cm-1)  for  K-1,2.3,4 

B  - 

(Wavelength  (-ml  for  K=5,6,7,8 

0UTF\JT  VARIABLES 
Argument  List 

E  -  Solar  spectral  irraaiance  at  the  top  of  the  Earths  atmo- 
spnere,  in  units  of'. 


photons  cm  L  sec  *7 cm  ^ 

K 

=  1,*> 

-2  -1  -1 
photons  cn.  sec  um 

F, 

=  2,6 

-2 ,  -1 

W  cm  -  cm 

K 

=  3,7 

W  nf^  um  ^ 

K 

=  4,3 
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The  circled  points  correspond  to  the  data  in  column  2  of  Table  4  -1  and  the  solid 
curve  to  the  fit  function. 


ujo  /  j^oas  uoio^d  £  jOl  'wueipwi;  |BJpadS  jei°S 
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Solar  Spectral  Irradiance,  10  7  W  cm  7/cm 


Figure  4—5.  Flow  chart  for  Subroutine  SOLR  AD. 


4-4 


SOME  CONVERSION  RELATIONS 


Some  useful  conversion  relations  may  be  derived  as  follows: 

I.  Energy  photon'1  =  hv  =  hc/xcm  =  hew,  U  sec 

where  he  is  expressed  in  J  cm  and  <*>  in  inverse  centimeters.  If 
we  use  the  values  of  h  and  c  from  Cohen  and  Taylor  [CT-73b, 
Table  33.1  on  p.  717],  we  have 

hc  =  j.626176  x  IQ'27  erg  sec  x  2.997924  x  1Q10  cm/sec 
10'  erg/J 

hc  *  1.98648  x  10'23  J  cm 
1/hc  =  5.03404  x  1022  J-1  cm-1 

A1  so , 


-1  4 

Energy  photon  =  10  hc/x,  U  sec 

where  x  is  in  micrometers;  thus, 

-4  -1 

1  Watt  =  10  x/hc,  photon  sec 

=  1/hcw,  photon  sec*1 

2.  x  =  104/o> 

|  dx/du|  =  104/u.2 

-1  4  2 

micron  wavenumber  =  10  /u 
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SECT10M  5 


EARTH  SURFACE  RADIANCE 

5-1  INTRODUCTION 

The  Earth  Surface  Radiance  Model  (23b)  provides  (essentially),  at  the 
Point  P  where  the  optical  1 ine-of-sight  from  the  detector  (which  is  fictitious 
in  the  NBR  Module)  at  Point  V  intersects  the  Earth's  surface,  the  upwelling 
spectral  radiance  directed  toward  the  detector.  The  model  provides  two  compo¬ 
nents  of  the  radiance:  (1)  thermal  radiation  emitted  at  Point  P  and  (2) 
source  radiation  reflected  at  Point  P.  In  the  NBR  Module,  the  only  source  is 
the  sun.  Reflected  sky  radiance  is  not  included. 

Strictly,  the  surface-reflected  source  radiation  is  actually  provided 
in  an  unattenuated  form  together  with  the  path  parameters  (areal  density  U  (cm 
at  STP)  and  the  product  UP  (atm  cm,  with  P  the  pressure))  integrated  along  the 
incoming  path  from  the  source.  These  parameters  are  required  as  input  to  a 
computation  of  the  molecular  absorption  over  the  total  two-leg  path.  The 
aerosol  transmittance  along  the  incoming  path  from  the  source  to  Point  P  is 
also  provided. 

The  principal  routine  in  the  Earth  Surface  Radiance  Model  is  Sub¬ 
routine  SURRAD  ( surface  radiance) ,  which  makes  a  number  of  calls  as  shown  in 
Figure  5-1.  Subroutine  SURRAD  is  discussed  in  Section  5-2,  Subroutine  RINOUT 
( ray-in-out)  computes  the  geometry  for  the  reflected  ray  and  is  discussed  in 
Section  5-3.  Subroutine  ESURF  has  been  discussed  in  Section  2-5  and  Sub¬ 
routine  SOLRAO  in  Section  4-3.  The  rest  of  the  routines  used  in  Model  23b, 
most  of  which  were  obtained  from  other  organizations,  are  described  in  Section 
5-4. 

5-2  SUBROUTINE  SURRAD 

Table  5-1  summarizes  the  input  and  output  variables  fur  Subroutine 

SURRAD. 


no 


Figure  5—1.  Routines  called  directly  from  the  principal  routine  (SURRAD)  in  the  Earth  Surface 
Radiance  Model.  For  subsequent  calls,  see  Figure  7-1 . 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAD. 


INPUT  VARIABLES 


Argument  List 

IDETEC  -  Flag  for  nature  of  detector  location. 

=  1,  If  detector  is  at  a  satellite  position  (SATLAT , 

SATLON,  SATALT)  specified  in  SATELL  Common.  (This 
mode  is  not  used  in  the  NBR  Module. ) 

=  2,  If  detector  is  at  a  position  (DETLAT,  DETLON,  DETALT) 
specified  in  TECTOR  Common.  (This  latter  option  is 
used  when  Subroutine  SURRAD  is  called  from  Subroutine 
UPWELL  in  the  NBR  Module.) 

MSM  -  Index  for  category  of  surface  material  (see  Table  2-12  for 

Subroutine  ESURF). 

DD  -  Additional  descriptor  for  selected  surface  material  (see 

Table  2-12  for  Subroutine  ESURF). 

SPCULR  -  Logical  variable. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface. 

=  .FALSE.,  Do  not  compute  coordinates  of  specular 
reflection  point. 

(SPCULR  appears  in  SURRAD  only  to  be  passed  to  Subroutine 

ESURF.) 


IUP  -  Altitude-loop  index  in  Subroutine  UPWELL. 

JUP  -  Nadir-loop  index  in  Subroutine  UPWELL. 

KUP  -  Azimuth-loop  index  in  Subroutine  UPWELL. 

LUP  -  Wavenumber-loop  index  in  Subroutine  UPWELL. 

(Each  of  the  previous  four  indices  should  be  set  to  unity 
in  a  call  from  any  routine  other  than  Subroutine  UPWELL, 
which  would  be  a  use  outside  of  the  NBR  Module.) 

ZLAM  -  Wavelength.  ( um) 

( conti nued) 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAD  (Cont'd). 


I F I  RES  - 


FIRBAL  Common 

FBALT(I),  - 
FBLAT(I) , 
FBLON(I), 
FBRINT ( I ) 

POSITN  Common 

POSALT,  - 
POSLAT, 
POSLON 
C12ALT,  - 
C12LAT , 
C12L0N 


SATELL  Common 

SAT ALT,  - 

SATLAT, 

SATLON 

SOLARP  Common 

SOLLAT,  - 
SOLLON 

SOURCE  Common 


Flag  for  inclusion  of  fireballs  as  sources. 

=  0,  No  fireball  is  to  be  included  (always  true  in  N3R 
Module  where  Subroutine  SURRAD  is  called  from  Sub¬ 
routine  UPWELL ) . 

>  0,  Fireballs  (IF  IRES ,  in  number)  are  to  be  included  with 
position  and  radiant  intensity  specified  in  FIRBAL 
Common . 

(not  used  in  NBR  Module) 

Fireball-I  altitude,  north  latitude,  east  longitude,  and 

spectral  radiant  intensity. 

[km,  radians,  radians,  W/(sr  cm  1] 


Altitude,  north  latitude,  and  east  longitude  of  Point  P  at 
which  1 ine-of-sight  from  (fictitious)  detector  at  Point  V 
intersects  Earth's  surface,  (km,  radians,  radians) 

Altitude,  north  latitude,  and  east  longitude  of  Point  C  at 
which  line-of-sight  (directed  toward  Point  P  from  fictitious 
detector  at  Point  V)  intersects  the  12 -km  altitude  surface, 
(km,  radians,  radians) 

(not  used  in  NBR  Module) 

Satellite-borne  detector  altitude,  north  latitude,  and  east 
longitude,  (km,  radians,  radians) 


Subsol ar-poi nt  north  latitude  and  east  longitude,  (radians) 


(The  variables  in  this  Common  are  returned  from  a  call  to  Subroutine 
RINOUT.  In  the  NBR  Module,  only  the  sun  is  used  as  a  source  for  Sub¬ 
routine  SURRAD.  Fireballs  are  never  used  in  the  NBR  Module  where 
Subroutine  SURRAD  is  called  from  Subroutine  UPWELL.) 


SRCZEN(I)  -  Zenith  angle  of  solar  ray  incoming  to  Point  P.  (radians) 

( continued) 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAQ  (Cont'd). 


(The  following  two  arrays  are  not  used  in  the  NBR  Module;  L = 1 » IF  IRES  1 

$RCZEN{1+1)  -  Zenith  angle  of  Fireball-L  ray  incoming  to  Point  P. 

( radi ans) 

SRC$R(L+1)  -  Slant  range  from  Fireball-L  to  Point  P.  (km) 

TECTOR  Common 

OETALT,  -  Altitude,  north  latitude,  and  east  longitude  of  fictitious 
DETLAT,  detector  at  Point  V.  (km,  radians,  radians) 

DETLON 

UPWELS  Common 

NifllAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral 
radiance  is  to  be  computed  for  broad-band  loop- index 
Ms J BAND. 

IQAYV  -  index  for  diurnal  condition  at  Subpoint  V, 

=  0,  Solar  zenith  angle  >  90  deg. 

=  1,  Solar  zenith  angle  <  90  deg. 

I  KM  -  Index  for  number  of  altitudes  at  which  calculations  are 
made  when  clouds  are  included  (set  in  Subroutine  UPHELD. 

UPWELS 2  Common 

J3AN01  -  Same  as  JBAND  in  Subroutine  UPVIELL.  Index  for  list  of 
(broad)  wavelength  bands. 

Data  Statement 

NSPEC5  -  Number  of  species  in  molecular  transmittance  model. 

NTEMP  -  Number  of  temperature  bins  in  molecular  transmittance  model. 


OUTPUT  VARIABLES 
Argument  List 

RAD(l)  -  Radiance  emitted  from  surface  material  at  Point  P  and 
directed  toward  detector  at  Point  V. 

[W/(c<n  sr  cm  1  ] 

( conti nuedl 
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Table  5-1.  Input  and  output  variables  for  Subroutine  SURRAQ  (Cant'd). 


RA0(2)  -  Radiance  of  solar  radiation  reflected  at  Point  P  (with 

incoming  ray  unattenuated)  and  directed  toward  detector  at 
Point  K.  , 

[W/icm^  sr  cm*1] 


For  1=1, IFIRE?,  (not  used  in  NBR  Module) 

RA0{L+2)  -  Radiance  of  Fireball-1,  radiation  reflected  at  Point  P  (with 

incoming  ray  unattenuated)  ana  directed  toward  detector  at 
Point  y .  , 

[W/(cm  sr  am  ] 

UPS (I ,N,1) ,  -  Path  parameters  U  (areal  density)  and  UP  (product  of  J  and 

UPPS(I,N,1)  pressure  P)  for  temperature-index-1  and  species-N  along 

incoming  solar  path  to  Point  P  on  Earth’s  surface.  Com¬ 
puted  only  for  LUP=1. 

(cm  at  STP,  atm-cm  at  STP) 

For  L=1 , IFIRES  (not  used  in  NBR  Module) 


UPS (1 ,N ,1+1 ) , 
UPPS { I ,N ,L+1 ) 


Path  parameters  U  and  UP  along  path  from  Fireball -L  to 
Point  P  on  Earth's  surface.  Computed  only  for  LUP=1. 
(cm  at  STP,  atm-cm  at  STP) 


UCS(I,N),  -  Similar  to  UPS ( I ,N ,  1 )  and  UPPS  ( 1 ,M ,  1 )  except  Point  P  is 
UPCS(I,N)  replaced  by  Point  C. 


AIRSOL  Common 


For  LUP  =1 ,NWAVE ( J  BAdD ) 

TASP(LUP),  -  Aerosol  transmittances  for  incoming  solar  rays  to  Point  P 
TASC(LUP)  on  Earth’s  surface  and  Point  C  at  12 -km  altitude.  (Depend 

only  on  wavelength  and  assumed  single  paths.) 

For  1=1,  IF  I  RES  (not  used  in  MBS  Module) 

TAFP(L)  -  Aerosol  transmittance  for  incoming  ray  from  Fireball -L  to 
Point  P  on  Earth's  surface. 


SOLARP  Common 


For  LL=1 ,NWAVI ( J  BAND ) 

SOLIRR(LL)  -  Solar  spectral  irradiance  at  the  top  of  the  atmosphere  at 
wavenuaber- index  IL. 

[W/(cni  cm"1] 
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The  calculational  steps  performed  in  Subroutine  SURRAD,  as  it  is  employed  in 
the  NBK  Module,  may  be  described  as  follows: 

A.  Prel iminaries  (done  only  for  spectral  index  L=l) 

1.  Call  RINOUT  to  evaluate  geometry  for  solar  source,  surface 
point  (P),  and  fictitious  detector  at  Point  V.  Obtain  at 
Point  P: 

a.  Detector  zenith. 

b.  IDAY. 

c.  Source  zenith  (if  IDAY=1). 

d.  Detector  azimuth  (if  IDAY=1  and  MSM  >2). 

2.1  If  IDAYV=1  and  IDAY=1,  set  source  zenith  into  Tril  and  detec¬ 
tor  azimuth  into  PS  I  (if  MSM  >2). 

2.2  If  iDAYVO,  set  IDAY=0. 

3.  Set  detector  zenith  into  THR. 

B.  Call  ESURF 

Obtain  surface  temperature  (TKS),  directional  emissivity  ( E PS 0 ) , 
and  (if  IDAY=1)  bidirectional  reflectance-distribution  function 
(SFR).  If  sun  and  water  surface  are  present  and  if  SPCULR= 
•TRUE.,  also  get  solar  specular  reflection  point  on  assumed 
smooth  horizontal  water  surface. 

C.  Compute  surface  spectral  radiance  [RAD (1)3  by: 

1.  Call  PLANCK  (only  for  1=J=K  =  1). 

2.  Evaluate  RAD  ( I )  =  EPSD  x  PLANCK  (TKS  ,W) . 

0.  Compute  (unattenuated)  surface-reflected  solar  radiance  [RAD {21] 
by: 

1.  Call  SOLRAD  to  get  solar  irradiance  [SOllRK(L)]  at  top  of 
the  atmosphere  (only  for  I-J=K  =  1). 

2.  Evaluate  RAD ( 2 )  =  SR  x  SOLIRR(L)  x  cos  ( T HI ) . 

E.  Get  path  parameters  (species  areal  density  U  (cm  ax  ST P 1  ano  the 
product  UP  (with  P  the  pressure,  atm-cml)  for  ray  SP  from  sun  to 
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Point  P.  Assume  path  parameters  are  independent  of  latitude  and 
longitude  of  P;  therefore,  do  only  for  l=d=K=L'l.  Also  get 
aerosol  transmittance  from  S  to  P,  TASP(t),  only  for  I=J=K=1. 

1.  Call  GEO XY Z  {Point  P,  P) 

2.  Call  GEOXYZ  (Point  S,  S) 

3.  Call  STEPS  (P  ,  5,...} 

4.  Loop  over  path  segments  with  calls  to  PATH,  AEROSOL,  and 
ACCUM. 

5.  Preserve  U(I,N,2)  and  UP(I,N,2)  arrays  as  'JPS(I,N,1)  and 
UPPS(I,N,1)  arrays. 

F.  Get  path  parameters  for  ray  SC  from  sun  to  Point  C.  (This  step 
is  included  only  if  natural  clouds  are  included  in  the  calcula¬ 
tion-  While  clouds  are  not  strictly  an  Earth-surface  feature, 
the  treatment  of  them  is  analogous  to  that  for  Point  P  and  thus 
is  appropr i ately  described  here.)  Assume  path  parameters  are 
independent  of  latitude  and  longitude  of  C;  therefore,  do  only 
for  IKM=J =K -1=1 .  Also  get  aerosol  transmittance  from  S  to  C, 
TASC(L) ,  only  for  IKM=U-K  =  1. 

1.  Call  GEOXYZ  (Point  C,  £). 

2.  Call  STEPS  (C,  S,...). 

3.  Loop  over  path  segments  with  calls  to  PATH,  AEROSOL,  and 
ACCUM. 

4.  Preserve  U(I,N,2)  and  UP(I,M,2)  arrays  as  UCS(I,N)  and 
UPCS(l.M)  arrays. 

5-3  SUBROUTINE  R1N0UT 

5-3.1  Purpose 

Subroutine  RINOUT ,  given  the  geographic  locations  of  the  source  (sun 
and/or  fireballs),  the  detector,  and  the  position  P  of  the  intersection  of  the 
1 i ne-of- sight  from  the  detector  to  the  Earth's  surface,  computes  the  zenith 
angle  (and,  for  fireballs,  slant  range  (but  not  in  NBR  Module))  of  the  source 
from  P  and  the  direction  of  the  ray  from  P  toward  the  detector  in  terms  of  the 
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zenith  angle  of  the  detector  and  (if  the  surface  is  not  Lambertian  (MAT-l)  or 
water  (MAT-2))  the  absolute  value  of  the  azimuth  angle  of  scatter  with  respect 
to  the  principal  plane  containing  the  incoming  ray. 

See  Table  5-2  for  a  summary  of  the  input  and  output  variables  fcr 
Subroutine  RINOUT  and  Figure  5-2  for  a  flow  chart. 

5-3.2  Derivations 

5-3.2. 1  Zenith  Angle  of  Sun 

_5 

Since  the  Earth's  radius  subtends  a  maximum  angle  of  about  4.2  x  10 
radians  at  the  sun,  it  is  a  good  approximation  to  assume  that  the  solar  ray  to 
Point  P  is  essentially  parallel  to  the  ray  to  the  subsolar  point.  Thus  the 
great  circle  arc  from  Point  P  to  the  subsolar  point  is  essentially  the  solar 
zenith  angle,  5 ^ ,  at  Point  P.  This  angle  -  •  is  obtained  by  applying  the 
cosine  law  for  sides  to  an  oblique  spherical  triangle,  with  the  result 

cos  a.  =  sin  ep  sin  o$  +  cos  ap  cos  e$  cos  (,*s-;p)  (1) 

where  6p  and  j  are  the  north  latitude  and  east  longitude  of  Point  0  and 
and  $s  are  the  corresponding  quantities  for  the  subsolar  paint.  This  formula 
is  the  same,  of  course,  as  that  evaluated  in  Subroutine  SDLZOJ  [Volume  14a- 1, 
HS-79],  but  we  do  not  use  that  routine  here  because  it  receives  its  input  for 
Point  p  from  /TIME/,  which  is  inappropriate  m  the  present  context. 

5-3. 2. 2  Zenith  Angle  of  Detector 

The  approximation  made  in  deriving  the  solar  zenith  angle  is  inade¬ 
quate  to  use  for  the  zenith  angle  of  a  low-altitude  detector,  as  shown  in 
Figure  5-3.  Here,  tne  zenith  angle  is 
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Table  5-2.  Input  and  output  variables  for  Subroutine  RINOUT. 


INPUT  VARIABLES 
Argument  List 

MAT  -  Index  for  category  of  surface  material  (see  Table  2-12  for 
Subroutine  ESURF) . 

IFIRE  -  Number  of  fireballs  to  be  considered  as  sources  (always 
zero  in  NBR  Module). 

FIRBAL  Common  (not  used  in  N3R  Module) 

For  L-l, IFIRE 

FBALT(L),  -  Altitude,  north  latitude,  east  longitude,  and  radiant 
FBLAT(L),  intensity  of  Fireball-L. 

FBLON(L),  (km,  radians,  radians,  W/sec) 

FBRINT (L ) 

POSITN  Common 

POSALT,  -  Altitude,  north  latitude,  and  east  longitude  of  intersection 
POSLAT,  (Point  P)  of  1 ine-of-sight  from  detector  (at  Point  V)  to 
POSLON  Earth's  surface. 

(km,  radians,  radians) 

SOLARP  Common 

SOLLAT,  -  North  latitude  and  east  longitude  of  subsolar  point. 

SOLLON  (radians) 

TECTQR  Common 

DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of  detector 

OETLAT ,  at  Point  V.  (km,  radians,  radians) 

oetlon 


OUTPUT  VARIABLES 
Argument  Li  St 

1DAY  -  Index  For  diurnal  condition  at  Point  P. 

-  0,  Solar  zenith  angle  >  90  deg. 

=  1,  Solar  zenith  angle  £  90  deg. 

( continued) 
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Table  5-2,  Input  and  output  variables  for  Subroutine  R1N0UT  (Cont'd). 


SOURCE  Conmon 

SRCZEN(l)  -  Zenith  angle  of  solar  ray  incoming  to  Point  P  on  Earth's 
surface,  (radians) 

For  L=l, IFIRE  (not  used  in  NBR  Module) 

SRCZEN (L+l) ,  -  Zer.ith  angle  and  slant  range  of  Fireball-L  ray  incoming 

SRCSR ( L  + 1 )  to  Point  P  on  Earth's  surface,  (radians,  km) 


TECTOR  Common 
DETZEN  - 


DETAZI(l)  - 


Zenith  angle  of  ray  reflected  at  Point  P  on  Earth's  surface 
toward  the  detector  at  Point  V.  (radians) 

Absolute  value  of  azimuth  angle  of  reflected  ray,  measured 
from  principal  plane  determined  by  vertical  plane  through 
incoming  solar  ray.  (radians) 


For  L=l, IFIRE  (not  used  in  NBR  Module) 

DETAZKL+l)  -  Absolute  value  of  azimuth  angle  of  reflected  ray,  measure  1 
from  principal  plane  determined  by  vertical  plane  through 
incoming  ray  from  Firebal 1-L ,  (radians) 


where  the  Earth-central  angle  is  obtained  from  a  call  to  Subroutine  CANGLE 
(see  Table  3-3  for  Subroutine  CANGLE).  Thus  we  need  B. 


Re  =  Earth' s  radius 
hp  =  Altitude  of  Point  P 
hd  =  Altitude  of  Point  V, 


b  =  +  h„ 

e  p 

c  =  Ro  +  hH  . 
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Figure  5-2.  Flow  chart  for  Subroutine  RINOUT.  For  completeness,  diagram  includes  calculation  for 
fireball  as  source,  a  condition  outside  the  NBR  Module. 


becomes 


tan 


1 

7 


(t-b) 


(»-<*) 


(7a) 


or 


y-B  =  2  tan 


=  t 


'-d 


Pbl 


By  subtracting  Equation  (7b)  from  Equation  (5),  we  have  the  needed  B , 

B  =  (*-«-Cd)/2  , 

to  use  in  Equation  (2)  for  the  detector’s  zenith  angle  at  Point  P. 

5-3. 2. 3  Azimuth  Angle  of  Reflected  Ray 

We  want  to  compute  the  azimuth  angle  *  shown  in  Figure  5-4.  For 
simplicity  in  the  formulas,  we  drop  the  primes  from  the  subpoints  V'  and  S'. 

Our  derivation  (which  may  not  be  the  simplest)  requires  solving,  in  turn, 
triangles  P-N-S,  Q-N-S,  P-Q-N,  and  P-V-Q.  The  numbers  on  the  various  sides 
and  angles  indicate  the  sequence  of  solution. 

A,  For  later  use,  note  that  NP  and  NS  are  known,  since 

NP  =  9p 
NS  =  0s. 

Def i ne 

PNS  =  U  I  (10a) 

t  1  s  p1 


(9a) 

(9b) 
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Figure  5—4.  Geometry  for  azimuth  angle  of  reflected  ray. 


QNSt  = 

us-*di 

(10b) 

QNPt  = 

( 10c) 

1Z4 


B.  For  triangle  P-N-S  , 


PNS  = 


PNSt 

if 

PNSt  <* 

2*-PNSt 

if 

PNSt  >_* 

:n> 


PS  =  C ANGLE ( 0p ,  ♦p,  9S,  *s) 


(121 


where  CANGLE  is  the  function  routine  described  in  Section  3-6.2  From  the  law 
of  sines, 


sin  QSN  =  sin  PSN  =  sin  NP  sin  PNS/sin  PS 
QSN  =  sin'1  (sin  QSN) . 


(13a) 

(13b) 


To  determine  the  proper  quadrant  for  QSN,  we  consider  the  consequence 
of  PSN  equaling  90°;  i.e.,  by  applying  the  law  of  cosines  for  sides  to  tri- 
angl e  P-S-N ,  we  have 


cos  NP  =  cos  PS  cos  NS  +  sin  PS  sin  NS  cos  QSN 


cos  NPr  =  cos  PS  cos  NS. 


(14a) 

(14b) 


ff  NP  >  NPR,  then  QSN  >  90°;  i.e.,  if  cos  NP  <  cos  NPR .  then  QSN  >  90°.  Thus, 


QSNp  if  cos  NP  >_  cos  NPR 


QSN  = 


i- 


(15) 


QSNp  if  cos  NP  <  cos  NPR 


-1 


where  the  subscript  P  denotes  the  principal  value  of  sin  ,  as  returned  by  the 
computer . 
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C.  For  triangle  Q-M-S, 

(  QNSt  if  QNSt  <  it 

QMS  =  \  (16) 

(  2lt-QMSt  if  QN$t  >_  t  . 

By  applying  the  law  of  cosines  for  angles  to  triangle  Q-M-S,  we  have 

SQN  =  cos  1  (cos  QMS  cos  QSN  +  sin  QMS  sin  QSN  cos  NS)  .  H? ) 

By  applying  the  law  of  sines  to  triangle  Q-N-S,  we  have 

QN  =  sin'1  (sin  QSN  sin  MS/sin  SQN).  (18) 

To  determine  the  proper  quadrant  for  QN,  we  consider  the  consequence 
of  QN  equaling  90°;  i.e,,  by  applying  the  law  of  cosines  for  angles  to  tri¬ 
angle  Q-N-S ,  we  have 

cos  QSN  =  -cos  SQN  cos  QNS  +  sin  SQM  sin  QMS  cos  QN .  (19a) 

For  QN  =  90° ,  we  have 

cos  QSNR  =  -  cos  SQM  CCS  QNS.  (19b) 

Now,  SQN  it;  therefore,  sin  SQN  >_  0.  For  daylight  conditions  at  the  detec¬ 
tor,  QNS  £  u/2;  therefore,  sin  QNS  >_9.  Thus,  the  second  term  in  (19a)  is 
always  positive  for  QN  <  90°.  Thus 

(  QMp  if  cos  QSN  cos  QSNR 

QN  =  ]  (20) 

(  "-QNp  if  cos  QSN  <  cos  QSNr. 
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o. 


For  triangle  P-Q-N , 


|  QNPt  if  QfJPt  <  * 

QMP  =  ’ 

|  2*-QN?t  if  QNPt  >  ’  • 

By  applying  the  law  of  sines,  we  have 

sin  QP  =  sin  QUP  sin  NP/sin  SQN 


(21) 


(22a) 


or 


,,  .2 ,0a/2 

cos  QP  =  ( 1-si n  Qp )  > 

a  quantity  we  will  need  later. 

E.  For  triangle  P-A-Q,  by  applying  the  law  of  sines,  we  have 
t,  »  sin~*  (sin  VQ  sin  VQP/sin  VP) 
where  VQ  is  evaluated  by  noting,  for  the  arc  V-Q-N,  that 

VQ  -  -J  -  (9d  +  QN) 

Sin  VQ  =  cos  (6d  r  QN )  '» 


(22b) 


(23) 


(24a) 

(24b) 


where  VQP  is  evaluated  by  noting  that 

(25a) 

VQP  =  it  -  SQN 

(25b) 

sin  VQP  =  sin  SQN  ; 
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where  VP  is  evaluated  by  noting  that 


VP 


“d  '  C ANGLE (e^,  ♦{J,  8p,  ♦p). 


(26) 


Thus, 


ii  =  sin'1  [cos  (ed  +  QN)  sin  SQN/s’n  a^] .  (27) 

To  determine  the  proper  quadrant  for  <i>,  we  consider  the  consequence 
of  v  equaling  90°;  i.e.,  by  applying  the  law  of  cosines  for  sides  to  triangle 
P-V-Q,  we  have 

cos  VQ  =  cos  VP  cos  QP  +  sin  VP  sin  QP  cos  V.  (28a) 


For  *  »  90°, 

cos  V0R  =  cos  VP  cos  QP 
=  COS  ad  COS  QP. 

Thus, 

if  cos  VQ  >_  cos  VQr 

*  ) 

if  cos  VQ  <  cos  VQr. 

5-4  OTHER  ROUTINES  IN  EARTH  SURFACE  RADIANCE  MODEL 
5-4.1  SAI  Routines  (ESURF,  SOLRAD,  GEOXYZ) 


(28b) 

(2Sc) 


(29) 


Among  tne  routines  shown  in  Figure  5-1  to  be  directly  called  from 
Subroutine  SURRAD,  those  (besides  RINOUT)  that  have  been  prepared  oy  SAl  are 
ESURF  (discussed  in  Section  2-5  and  its  related  water-surface  routines  in 
Section  3-6),  SOLRAO  (discussed  in  Section  4-3),  and  GEOXYZ. 
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Subroutine  GEOXYZ  converts  the  geographic  coordinates  of  a  point  (P) 
to  Earth-centered  Cartesian  coordinates.  Reference  to  Figure  5-5  aids  one  in 
writing  the  following  equations. 


RP 

=  Rt  + 

PH 

(30) 

RPEQ 

=  RP  x 

COS  PLAT 

(31) 

RPX 

=  RPEQ 

x  cos  PLON 

(32) 

RPY 

=  RPEQ 

x  sin  PLON 

(33) 

RPZ 

=  RP  x 

sin  PLAT. 

(34) 

The  input  and  output  variables  are  summarized  in  Table  5-3. 

5-4.2  Visidyne,  Inc.  Routine  (AEROSOL) 

Subroutine  AEROSOL,  prepared  by  C.H.  Humphrey  et  al .  [Volume  25], 
computes  attenuation  coefficients  for  scattering  and  absorption  (and,  though 
not  used  in  the  NBR  Module,  the  asymmetry  factor  (average  cos  inf  of  the 
scattering  angle))  due  to  atmospheric  aerosols,  given  the  altitude  and  wave¬ 
length.  Table  5-4  summarizes  the  inputs  and  outputs  for  Subroutine  AEROSOL. 

5-4.3  G.E.  Tempo  Routines  tACCUM,  DOT,  FRAC,  PATH,  PLANCK,  SEGMENT,  STEP, 

STEPS,  SUBVEC ,  UNITV,  VLIN,  XMIT) 

Among  the  routines  shown  in  Figure  5-1  to  be  directly  called  from 
Subroutine  SURRAD,  those  that  have  been  prepared  by  G.E.  Tempo  are  Function 
PLANCK,  Subroutine  VLIN,  Subroutine  STEPS  (and  its  auxiliary  routines  SUBVEC, 
VLIN,  DOT,  UNITV,  STEP,  and  FRAC),  Subroutine  PATH  (and  its  auxiliary  routines 
XMIT  and  SEGMENT),  and  Subroutine  ACCUM.  A  brief  description  of  the  purpose 
of  each  of  these  routines  is  included  in  Table  7-3a  which  summarizes  all  the 
routines  in  the  NBR  Module.  For  the  longer  and  more  important  routines  we 
have  summarized  their  inputs  and  output:  Subroutine  PATH  (Table  5-5),  Func¬ 
tion  PLANCK  (Table  5-6),  Suoroutine  SEGMENT  (Table  5-7),  Subroutine  STEP 
(Table  5-8),  and  Subroutine  STEPS  (Table  5-9).  Briefer  statements  -  but  in 
some  instances,  flow  charts  -  pertaining  to  these  routines  have  been  given  by 
Ewing  et  al .  in  Volume  31  (PATH,  p.  62;  PLANCK,  p.  63;  SEGMENT,  p.  66  with 
flow  chart  on  p.  67;  STEP,  p.  68,  with  flow  chart  on  p.  69;  STEPS,  p.  70). 
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NORTH 


Greenwich 


Figure  5—5.  Geometry  for  conversion  of  geographic  coordinates  to  Earth  -centered 
Cartesian  coordinates. 
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Table  5-3, 

,  Input  and  output  variables  for  Subroutine  GE3XYZ. 

INPUT  VARIABLES 

Argument  List 

PH,  - 
PLAT, 

PLON 

Altitude,  north  latitude,  and  east  longitude  of  Point  3. 

(km,  radians,  radians) 

OUTPUT  VARIABLES 

Argument  List 

RPX ,  - 

RPY , 

RPZ 

Earth-centered  Cartesian  coordinates  X,  ¥,  and  Z  of  Point  p. 

{ km) 

Table  5-4 

.  Input  and  output  variables  for  Subroutine  AEROSOL. 

INPUT  VARIABLES 

Argument  Li  St 

HCM  -  Altitude  above  sea  level,  (cm) 

LAUDA  -  Wavelength,  (um) 

AEROK  Common 

c 

KV1S  -  Visibility  range  oarameter  (VR)  for  0  HCM  9  x  10' 


Cm. 


1, 

VR 

=  50 

km 

2, 

VR 

=  23 

km 

3, 

VR 

=  10 

km 

VR 

=  5 

km 

5, 

VR 

=  2 

km 

KTYPE 


Terrain  parameter  for  0  £  HCM  <  2  x  10  cm. 

=  1,  Terrain  is  rural 

=  2,  Terrain  is  urban 

=  3,  Terrain  is  maritime. 


( continued) 
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Table  5-4.  Input  and  output  variables  for  Subroutine  AEROSOL  (Cont'd). 


OUTPUT  VARIABLES 
Argument  List 

XKSCT,  -  Scattering  and  absorption  coefficients,  (cm  M 
XKABS 

GBAR  -  Asymmetry  factor  (average  cosine  of  the  scattering  angle). 


Table  5-5.  Input  and  output  variables  for  Subroutine  PATH. 


INPUT  VARIABLES 


Argument  List 


FIRST 


ISHELl(l), 
ISHELL (2) 

OS 


XFRACS ( I ) , 
XFRACS (2) 


logical  variable  serving  as  initialization  switch. 

=  .TRUE.,  For  first  call  li.e.,  corresponding  to  path  from 
RX  to  RY  in  Subroutine  TRNSCO). 

*  .FALSE.,  For  subsequent  calls  (i.e.,  corresponding  to 
path  from  RY  to  R?  in  Subroutine  TRNSCO). 

INDX(I)  and  IN0X(1+1)  in  calls  from  Subroutines  TRNSCO  and 
SURRAO. 

05(1+1)  in  calls  from  Subroutines  TRNSCO  and  SURRAO. 

Note:  It  is  always  true  that  DS(l)  -  0.0  and  DS(NC+1)  = 
-1.0,  vfiere  NC  is  the  number  of  path  segments  plus  one. 
Subroutine  ATW1AD  will  not  be  called  from  Subroutine  TP.NSCO 
with  I=NC . 


XFRACS (I )  and  XFRACS (1+1)  in  calls  from  Subroutine  TRNSCO 
and  SURRAD. 

Notes:  (1)  Do  not  confuse  this  array  XFRACS  (dimensioned 
2)  with  the  array  XFRACS  (dimensioned  100)  in 
Subroutines  STEP,  STEPS,  and  TRNSCO. 


(2)  For  meaning  of  XFRACS (1),  see  Table  b-9  for 
Subroutine  ATMRAD. 


(continued) 


Table  5-5.  Input  and  output  variables  for  Subroutine  PATH  (Cont'd). 


XYZCOM  Conmon 

NS  - 

Number  of  altitude  boundaries  set  in  Subroutine  SHELLS. 

For  J=1,NS;  N=l,10 

TS(J ) ,  - 
PS(J), 
XNSPEC(  J  ,N ) 

Temperature,  pressure,  and  species-N  density  at  altitude 
boundary  J.  3 

(deg  K,  atm,  1/cm  ) 

OUTPUT  VARIABLES 

XYZCOM  Common 

For  1=1,2  (adequate  for  ambient  atmosphere);  N=l,10 

U  ( I ,N ,2 ) ,  -  Cumulative  value  of  path  pa> ameters  U  (species-N  areal 

UP(I,N,2)  density)  and  UP  (product  of  U  and  pressure  P)  for  temper¬ 

ature-index  I  and  species-N  at  end  of  line  segment  DS(J  +  1). 
(cm  at  STP,  atm-cm  at  STP) 

Table  5-( 

>.  Input  and  output  variables  for  Function  PLANCK. 

INPUT  VARIABLES 

Argument  List 

T  - 
W 

Temperature.  ( deg  K ) 

Wavenumoer.  (1/cm) 

^ata  Statements 

C  - 

H  - 
CHK  - 

Velocity  of  light,  (cm/sec) 

Planck's  constant.  (J  sec) 

C  x  H/K,  where  K  is  Boltzmann's  constant,  (cm  deg-K) 

OUTPUT  VARIABLES 

Function 

PLANCK  - 

2  _  i 

Spectral  radiance.  [W/(cm  ?*•  cm  )] 
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Table  5-7. 


nput  and  output  variables  for  Subroutine  SEGMENT. 


INPUT  VARIABLES 

Argument  List 

NSPEC  -  Number  of  species  (IU)  in  the  molecular  transmittance 

model.  These  species  are  identified  by  comments  in  Table 
7-9  for  Subroutine  SHELLS. 

XI  -  Distance  along  line  segment;  set  as  0.0  in  call  from  sub¬ 
routine  PATH. 


For  N  =  I , NS  PEC 


NS1(N),  -  Array  of  species  concentrations,  pressure,  and  temperature 
PI,  at  start  of  line  segment;  set  in  call  from  PATH  as  XNSKIu), 
T 1  PSL 1,  and  TSL1.  (1/cm,  atm,  deg  K) 


X2 


N  S  2  ( N  ) , 
P2, 
T2 


XY  Common 


Length  of  line  segment;  set  as  DS  in  call  from  Subroutine 
PATH,  (cm) 

Array  of  species  concentations,  pressure,  and  temperature 
at  end  of  line  segment;  set  in  call  from  Subroutine  PATH  as 
XNS2110),  PSL2,  and  TSL2 .  (1/cm  ,  atm,  deg  K) 


For  I  =  1,10 

TT(I)  -  Temperature  array  used  for  band-model  parameters,  (deg  K) 


OUTPUT  VARIABLES 
Argument  List 
For  1  =  1,10;  N  =  l,  10 

DU(I,N),  -  Incremental  path  integrals  U  (areal  density)  and  UP  (product 
DUP(I,N)  of  U  and  pressure  P)  for  path  segment  DS,  temperature-I , 

and  species-N.  (cm  at  STP,  atm-cm  at  STP) 
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Table  5-8.  Input  and  output  variables  for  Subroutine  STEP. 


INPUT  VARIABLES 


Argument  List 

RX  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  detector,  (cm) 


SHAT  -  Unit  vector  along  the  transmission  path  from  RY  to  RX.  (cm) 

DIST  -  Magnitude  of  distance  along  transmission  path  from  RY  to 
R^.  (cm) 

NC  -  Initialization  value.  Normally  set  to  0  and  leads  to  DS ( 1 ) 
being  set  to  0.0. 


XYZCOM  Common 


NS  -  Number  of  shell  boundaries  in  atmospheric  transmission 
model . 

OUTPUT  VARIABLES 
Argument  List 

NC  -  Number^of  path  segments  plus  one  on  the  transmission  path 
from  RY  to  RX,  or  equivalently,  the  number  of  end  points. 

For  1  =  1,  NC 

US ( I +1 )  -  Length  of  line  segment  I  along  transmission  path,  (cm) 

Note:  It  is  always  true  that  DS ( 1 )  =  0.0  and  DS(NC  +  1)  = 
-1.0.  (There  are  two  more  values  of  OS  than  there  are 
segments. ) 

XFRACS(I)  -  The  weight  associated  with  the  1th  end  point  appropriate 
for  finding  at  that  point  the  1 inearly-interpolated  value 
of  parameters  -  such  as  temperature  and  pressure  (or  even 
altitude)  -  which  are  specified  at  the  two  shell  boundaries 
adjacent  to  the  Ith  end  point. 


Note;  For  verification  of  this  interpretation,  see  the  usage  of 
XFRAC(l)  and  XFRAC(2)  in  Subroutine  ATMRAD  for  obtaining  altitude  and 
temperature  at  front  and  back  of  cell  DS.  The  same  conclusion  may  be 
drawn  from  the  usage  of  XFRACS(l)  and  XFRACS ( 2 )  in  Subroutine  PATH. 


(continued) 
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Table  5-8.  Input  and  output  variables  for  Subroutine  STEP  (Cont'd). 


It  is  useful  to  consider  a  hypothetical  example  with  HSHELL(I)  =  0.0, 
1.0,  2.0,  3.0  for  1=1, 2, 3, 4  and  45-degree  path  from  altitude  1.9  to  2.9 
km.  Then,  NC=3  and  we  have  the  following  values  for  the  arrays: 


I_ 

DS  (I ) 

XFRACS(l) 

INDX(I) 

1 

0.0 

0.1 

2 

2 

0.1414 

1.0 

3 

3 

1.2728 

0.9 

4 

4 

-1.0 

Mot  defined 

0 

1NDX(I)  -  Index  of  shell  boundary  at  or  just  before  the  start  of  the 
line  segment  I.  INDX(NC)  will  be  the  index  of  the  shell 
boundary  just  after  the  last  endpoint. 

Mote:  INDX(NC+1 )  =  0. 


Table  5-9.  Input  and  output  variables  for  Subroutine  STEPS. 


INPUT  VARIABLES 

Argument  List 


RX  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  detector,  (cm) 

RY  -  Location  vector  to  one  end  of  transmission  path,  typically 
but  not  necessarily  at  the  scattering  or  source  point,  (cm) 

NC  -  Initialization  value.  Normally  set  to  0  and  leads  to  DS  ( 1 ) 
being  set  to  0.0  in  Subroutine  STEP. 


OUTPUT  VARIABLES 

Internal  Use  (for  call  to  Subroutine  STEP) 

SHAT  -  Unit  vector  along  the  transmission  path  from  RY  to  RX.  (cm) 

0IST  -  Magnitude  of  distance  along  transmission  path  from  RY  to 
RX.  (cm) 

( continued) 
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Table  5-9.  Input  and  output  variables  for  Subroutine  STEPS  (Cont'd). 


Argument  List 

The  following  quantities  are  obtained  by  a  call  to  Subroutine  STEP 
(see  Table  5-8  for  Subroutine  STEP):  NC,  DS,  XFRACS,  and  1NDX. 
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SECTION  6 


UPWELLING  NATURAL  RADIATION 


6-1  INTRODUCTION 

6-1.1  Requirement 

The  Upwelling  Natural  Radiation  Model  (23c'  is  required  to  provide 
the  mean  upwelling  spectral  radiance  at  a  viewing  Point  V  at  any  altitude  in 
the  atmosphere,  with  account  of  the  effects  of  solar  radiation  reflected  from 
the  Earth  and  clouds,  emitted  radiation  from  the  Earth,  atmosphere,  and 
clouds,  and  attenuation  by  atmospheric  aerosols. 

6-1.2  Approach 

The  mean  upwelling  spectral  radiance  is  evaluated,  in  principle,  by 
averaging  the  upwelling  spectral  radiance  over  the  solid  angle  (;iy)  defined  by 
the  cone  with  vertex  at  Point  V  and  tangent  to  the  Earth's  surface.  In  prac¬ 
tice,  we  average  the  set  of  spectral  radiances  received  by  a  (fictitious) 
detector  viewing,  from  Point  V,  a  set  of  characteristic  Points  P  on  the 
Earth's  surface  and  within  o^. .  (For  now,  we  iqnore  clouds.)  The  selection  of 
the  Points  P  is  done  by  first  dividing  ;i-j-  into  a  number  of  regions  (N^  <  10) 
bounded  by  comnon- vertex  cones,  each  region  with  solid  angle  an  =  For 

each  region  we  determine  an  angle  8,  measured  from  the  nadir,  which  defines  a 
cone  that  bisects  an.  (For  brevity,  we  will  hereafter  let  the  phrase  'nadir 
angle'  mean  an  angle  measured  from  the  nadir,  just  as  'zenith  angle'  means  an 
angle  measured  from  the  zenith.)  For  daytime,  we  assume  symmetry  about  the 
vertical  (or  principal)  plane  passing  through  Point  V  and  the  sun.  The  region 
on  one  side  of  the  principal  plane  is  divided  into  a  number  of  sectors,  each 
with  angle  n/N^  £  6  for  day;  -  1  for  night  since  complete  azimuthal 
symmetry  then  obtains).  The  intersections  between  the  bisecting  cones  and  the 
planes  bisecting  the  sectors  are  a  set  of  x  N^  lines  which  intersect  the 
Earth's  surface  at  a  set  of  points  we  call  Poirts  P.  We  assume  the  upwelling 
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radiance  directed  from  a  Point  P  to  Point  V  is  representative  of  that  from  the 
entire  facet  associated  with  the  Point  P. 

In  the  absence  of  clouds,  we  model  the  upwelling  radiance  directed 
along  a  Path  PV  (i.e.,  from  Point  P  to  Point  V)  by  including  contributions 
from  (I)  air  emission  between  Points  V  and  P,  (2)  surface  emission  at  Point  P, 
and  (3)  solar  radiation  reflected  from  the  surface  at  Point  P.  (We  do  not 
include  air  emission  reflected  at  Point  P.)  Let  us  denote  such  radiance  as 
UPRADfl ,J ,K,Lj ,  with  and  L  being  indices  for  altitude,  nadir  angle, 

azimuth  angle,  and  wavenumber,  respectively. 

To  obtain  a  mean  value  for  the  upwelling  radiance,  we  first  average 
UPRADfl ,J ,K,L)  over  azimuth  angles  for  a  constant  nadir  angle  to  get 
UPRADAd  ,J  ,L)  and  then  average  UPRADAd  ,J  ,L)  over  nadir  angles  to  get 
UPRADN(I,L).  Very  recently  this  last  array  has  been  extended  to 
UPRADM (I ,L ,J8AND )  to  provide  for  a  broad-band  spectral  index  J8ANQ. 

The  inclusion  of  natural  clouds  complicates  the  modeling.  Ho  attempt 
is  made  to  include  the  deterministic  cloud  submodel.  The  statistical  cloud 
submodel  is  included  only  for  altitudes  of  Point  V  equal  to  or  greater  than 
the  highest  altitude  (12  km)  of  a  cloud  top  i-  that  submodel.  The  general 
procedure  is  to  first  consider  a  given  altitude  dow  denotect-^y  index  I  KM) , 
nadir-J,  and  azimuth-K,  just  as  with  no  clouds.  With  the  air  emission, 
ARCVA(IKM,J  ,1) ,  along  the  1 ine-of-sight  (LOS)  above  12-km  altitude  serving  as 
a  base  value,  we  obtain  a  distribution  function  for  the  additional  radiance 
corresponding  to  cl oud-free-LOS  (CFLOS)  and  cloudy-LOS  extending  below  12-km 
altitude.  Because  there  are  159  cloud  configurations  in  the  statistical  cloud 
model,  this  distribution  function  has  160  members  for  nighttime  and  161  mem¬ 
bers  for  daytime; 

159  for  cloud- top  emission  and  (if  daytime)  cloud-reflected  solar- 
radiation 

1  for  Earth's  surface  emission  and  air  emission  below  12-km 
altitude  (for  a  1-leg  CFLOS) 
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1  for  Earth's  surface  emission,  air  emission  below  12-km  altitude, 
and  (if  daytime)  ground-reflected  solar  radiation  (for  a  2-leg 
CFLOS,  obtaining  for  daytime). 

The  last  two  members  are  the  weighted  contributions  for  CFI  OS  conditions. 
(Owing  to  certain  simplifications  made  in  the  cloud  modeling,  there  are 
actually  only  9  and  not  159  distinct  values  in  the  distribution  for  a  cloudy- 
LOS.)  Having  determined  the  distribution  function  for  a  given  look  direction 
from  Point  V,  we  form  the  integral  distribution  and  compute  selected  percen¬ 
tiles  (XXX  =  10,  25,  50,  90,  100)  of  the  integral  distribution,  RXXX(K.L),  at 
implicit  al ti tude-IKM,  implicit  nadir-J,  and  explicit  azimuth-K.  Values  of 
RXXX(K,L)  are  averaged  over  azimuth  angles  to  give  RXXXM IKM.J ,L) .  Values  of 
ARCVA(IKM,J ,L)  and  RXXXA(IKM,J ,L )  are  averaged  over  nadir  angles  to  give 
ARCVM (1KM,L)  and  RXXXN (IKM.L) ,  respectively. 

Since  the  inclusion  of  the  broad-band  index  JBAND  was  a  late  change 
(March  1980),  we  elected  not  to  modify  the  arrays  ARCVN[IKM,L)  and 
RXXXN ( IKM.L )  to  provide  for  an  explicit  dependence  on  the  index  JBAND  is  we 
did  for  the  array  UPRADN(I  ,L, JBAND ) .  This  limitation  must  be  remembered  and 
removed  if  JBAND  >  1  and  if  clouds  are  included,  unless  one  adopts  the  GRC 
definition  of  UPRADNd ,1, JBAND)  (which  we  give  later). 

It  would  probably  be  more  conceptually  satisfying  if  one  could  per¬ 
form  azimuth-  and  nadir-averages  for  each  of  the  cloud  configurations,  so  that 
one  could  end  up  with  a  distribution  function  at  a  given  altitude  instead  of 
averaged  percentil e-val ues.  Such  a  procedure  was  not  followed. 

The  natural  cloud  model  does  not  include  air  emission  between  cloud 
tops  and  12 -km  altitude.  Hence,  such  air  emission  is  not  included  here, 
either. 

6.1-3  Dependence  on  Other  Models 

It  will  be  recognized,  of  course,  that  the  Upwelling  Radiation  Model 
depends  heavily  on  other  models  which  we  have  integrated  into  it.  Obviously 
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required  are  the  models  described  in  earlier  sections  of  this  report  (Earth 
Surface  Characterization  in  Sections  2  and  3,  Solar  Radiation  in  Section  4, 
Earth  Surface  Radiance  in  Section  5)  as  well  as  the  SAI  models  described  else¬ 
where  for  the  Ambient  Atmosphere  (Volume  14a-l)  and  Natural  Clouds  (Volume 
24).  In  addition,  highly  essential  ingredients  are  provided  by  the  G.E.  Tempo 
models  Tor  Atmospheric  Thermal  Emission  (Volumes  28  and  31)  and  Molecular 
Transmittance  (Volumes  28  and  31)  and  the  Visidyne,  Inc./AFGL  model  for  Atmo¬ 
spheric  Aerosols  (Volume  25).  Explicit  recognition  of  the  pertinent  routines 
is  given  later. 


6-2 


SUBROUTINE  UPWEIL 


6-2.1 


Formul as 


6-2. 1.1  Geometry 

Here  we  derive  the  formulas  associated  with  the  characteristic  Points 
P. 


In  Figure  6-1,  consider  the  Point  V  at  altitude  h  and  the  ray  VT 
tangent  to  the  Earth's  surface.  Then,  for  the  right  triangle  OTV,  we  have 


s^  +  R2  =  (R+h)2 


or 


s-p  =  (2h  R  +  h2)1/2. 

The  nadir  angle  8-r  at  Point  V  for  the  tangent  ray  is 


Sj  -  cos'1  [Sj/fR+h)]. 

The  solid  angle  between  nadir  angles  Sp  and  a2  is 
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n(8j,Sp}  =  2"  J"  sin  6  de  =  2"  (cos  -  cos  Bp). 


0,  we  have 


0(0,62)  -  2u  (1  -  COS  Bp). 


0  and  Bp  =  B-p  we  have 


2no;  s  n(0,B_)  =  2t(1  -  cos  8  ). 


Consider  now  the  oblique  triangle  OPV  for  which 


a  +  8  =  x 

where,  at  Point  P,  x  is  the  zenith  angle  of  Point  V.  From  the  law  of  sines, 
we  have 


sin  ( it -x >  _  sin  x  -  sin  a  _  sin  b 
~ R+K  ft+h "  '  s  '  R  • 

Consider  now  the  fractiles  (n-l/2)/n_  (with  n=l,  2 . n  )  of  the 

b  b 

normalized  solid  angle  The  corresponding  angles  and  distances  of  interest 
are: 


COS  !n 


n 


T 


6 


n 


-1 

COS 


(COS  8n) 


x n  =  sin"1  [(1  +  ^-)  sin  8^] 


s„  =  R  sin  a  /sin  s  . 
n  n  n 

These  quantities  of  interest  are  tabulated  in  Table  6-1  for  altitudes  of  1, 
10,  and  100  km.  oj  has  the  values  of  0.982,  0.944,  and  0.825  for  h  =  1,  10, 
and  100  km. 


For  a  Point  C  at  12-km  altitude  on  the  ray  VP,  we  have 
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Table  6-1.  Geometrical  quantities  of  interest  for  Point-V  at 
altitudes  of  1,  10,  and  100  km. 


h 

=  1  km 

n 

8n 

*n 

“n 

Ran 

Sn 

i 

18.03 

18.03 

.00293 

0.33 

1.05 

2 

31.50 

31.50 

.00551 

.61 

1.17 

3 

41.02 

41.03 

.00782 

.87 

1.33 

a 

48.99 

49.00 

.01034 

1.15 

1.52 

5 

56.08 

56.10 

.01338 

1.49 

1.79 

6 

62.63 

62.64 

.01737 

1.93 

2.18 

7 

68.80 

68.83 

.02320 

2.58 

2.77 

8 

74.73 

74.76 

.03298 

3.67 

3.80 

9 

80.50 

80.55 

.05386 

5.99 

6.07 

10 

86.16 

86.30 

.1365 

15.18 

15.21 

h  = 

10  km 

n 

8 

X- 

a 

3a 

s 

n 

n 

n 

n 

n 

i 

17.67 

17.70 

.0286 

3.19 

10.50 

2 

30.86 

30.92 

.0538 

5.98 

11.65 

3 

40.18 

40.26 

.0760 

8.45 

13.10 

4 

47.96 

48.06 

.0998 
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sin  (*-xc) 
~l ^ - 


sin  8 
R+C12 


or 


sin  xc 


a+h 


R+C 


12 


sin  a 


vfhere,  at  Point  C,  xc  is  the  zenith  angle  of  Point  V. 

The  Earth-central  angle  a  is 
3  c 

ac  =  xc  '  8‘ 

6-2. 1.2  Radiance 

Here  we  record  the  general  formulas  used  to  compute  the  radiance 
directed  along  the  paths  from  Point  P  to  Point  V  and  from  Point  C  to  Point  V, 
shown  in  Figures  6-2  and  6-3. 

6-2. 1.2.1  Ho  Clouds 

For  no  clouds  (or  for  Point-V  altitudes  below  12-km  when  clouds  are 
included),  the  radiance  may  be  written  as 

[Radiance]pv  -  [Air  radiance]pV  +  [Ground  emission  radiancelp 
x  TTPV(L)  +  [Ground-reflected  solar  radiancelp  x  TTSPV 


or 


p 

Figure  6-  2.  Geometry  and  ingredients  fo.  radiance  calculation  along  path  PV  without  clouds. 


JPRADvK ,L) 


■VEPVfL )  +  RAD(l)  x  TTPVU)  +  RAO  (2)  x  TTSPV(L) 

OPRAOOC.U 

o 


where 


TTPV(L) 


TTSPV(L) 


Total  transmittance  along  PV 

Product  of  molecular  transmittance  and  aerosol  trans- 
mi  ttance 

Total  transmittance  along  (SP  +  PV > 

(Molecular  transmittance)  x  (aerosol  transmittance) 
TMSPV(L)  x  [TA3P(D  xTAPV'.U]. 


The  noleci.ia’-  transmittance  Tf#$?V  depends  on  the  oath  parameters  for  the  en¬ 
tire  path  (SP  +  PV): 
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U  (M,N,1)  =  U  PS(M,N,1)  +  U  (M,N  ,2 ) 
UP(M,N ,  1)  =  UPPS(M,N,1)  +UP(M,«,2). 


6-2. 1.2.2  With  Clouds  (h  >  12  km) 

When  clouds  are  included  in  the  calculation  on  a  statistical  basis, 
the  problem  becomes  much  more  complicated,  as  inferred  from  Figure  6-3.  The 
general  procedure  is  to  compute  the  radiance  with  and  without  the  clouds  and 
(essentially)  to  weight  the  two  results  by  the  probabilities  that  the  line-of- 
sight  (LOS)  from  Point  V  intersects  the  clouds  or  does  not  intersect  the 
clouds  (discussed  in  Section  6-2.3). 

If  the  LOS  intersects  the  clouds,  the  radiance  may  be  written  as 

[Radiance]r„  =  [Air  radiance],.^  +  [Cloud  emission  radiance]  x  TTCV(L) 

tv  C  V  C 

+  [Cloud-reflected  solar  radiancelc  x  TTSCV(L) 
or 

=  AECV(L)  +  EMISS(IOX)  x  TTCV(L)  +  SOLIRR(L)  x  TRANS(IDX)  x  TTSCV(L), 

where 

TTCV(l)  =  Total  transmittance  along  CV 

=  Product  of  molecular  transmittance  and  aerosol  trans¬ 
mittance 

TTSCV(L)  =  Total  transmittance  along  (SC  +  CV) 

=  (Molecular  transmittance)  x  (Aerosol  transmittance) 

=  TMSCV(L)  x  [TASC(D  x  TACV(L)]. 

The  molecular  transmittance  TMSCV  depends  on  the  path  parameters  for  the 
entire  path  (SC  +  CV): 
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U  SCV (M,N , 1 )  =  U  CS(M,N)  +  U  CV(M,N) 

UPSCV(M ,N , 1 )  =  UPCS (M  ,N )  +  UPCV(M.M). 

6-2.2  Input  and  Output  Variables 

The  input  and  output  variables  for  Subroutine  UPWELL  are  described  in 
Table  6-2. 

6-2.3  Cal cul ational  Steps 

A.  Preliminaries 

1.  Set  JBAND1  in  /UPWELS2/. 

2.  Set  Subpoint  V  in  /TECTOP/. 

3.  Determine  solar  conditions. 

a.  Solar  zenith  angle 

b. l  If  IDAYV  =  0, 

REFA7I  =  0.0,  RS  =  0. 
b.2  If  IDAYV  =  1, 

(1)  Call  GEOREA  for  REFAZI 

(2)  Call  GEOXYZ  for  RS  in  /SORCE/ 

(3)  Zero  arrays  USPV,  UPSPV,  USCV,  UPSCV. 

4.  Set  altitude  of  all  Points  P. 

5.  Initialize  counter  for  cloud  calculations,  IKM  =  0. 

B.  Altitude  Loop  (1  =  1, MALT (JBAND  )=NAITJ  ) 

1.  Advance  altitude  (of  fictitious  detector)  at  Point  V. 

2.  Call  GEOXYZ  for  RV  s  RD  in  /SANDD/ . 

3.  Get  nadir  angle  for  tangent  ray  and  corresponding  solid 
angle. 

4.  If  IKM=1  (implies  ZKM( I , JBAND )  =  12.0),  compute  CFPS ,  the 
CFLOS  for  Path  P5  by  using  calls  to  CFLOSF  in  the  following 
formul  a: 

5 

CFPS  =  ^  CCO VE R  ( 1 C , KMODF. L )  x  CFL0SF[ ICC ( IC ) ,  SOLZ  ] 

IC  =  1 

with  ICC(IC)  =  1,4,6,9,11  for  IC  =  1,2,3, 4, 5. 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL. 


INPUT  VARIABLES 


Argument  List 


MSM  -  Index  for  category  of  surface  material  (see  Table  2-12  for 
Subroutine  ESURF) . 

DD  -  Additional  descriptor  for  selected  surface  material  (see 
Table  2-12  for  Subroutine  ESURF). 


ww, 

DW 

SPCULR 


LBINT 


JBANO 


Arrays  of  central  wavenumbers  and  wavenumber- interval j 
widths  corresponding  to  broad-band  index  JBAND.  (cm  ) 

Logical  parameter,  passed  to  Subroutine  SURRAO. 

=  .TRUE.,  Compute  coordinates  of  specular  reflection  point 
on  an  assumed  smooth  horizontal  water  surface,  provided 
MSM=2 . 

=  .FALSE.,  Do  not  compute  such  coordinates. 

Word-5  (LHV )  in  GRC  Dataset-BN  (No.  114),  List  of  Band- 
Interval  Datasets  (BI).  Strictly,  LBINT  is  the  pointer 
(i.e.,  contains  the  (Q-array)  address)  for  the  list  header 
of  the  Band-Interval  Datasets-BI  corresponding  to  Dataset- 
BN. 

Index  for  list  of  (broad)  wavelength  bands.  (1  to  5) 


AIRSOL  Common 


For  L  =  1  ,NWAVEJ 

TASP(L),  -  Aerosol  transmittance  for  incoming  solar  rays  to  Point  P  on 
TASC(L)  ground  and  Point  C  at  12-km  altitude. 

CLDFREQ  Common 

KMODEL  -  Index  (l  to  11)  characterizing  a  set  of  statistical  aver¬ 
ages  of  cloud-coverage  categories,  cloud  types,  and  number 
of  cloud  layers  for  a  given  geographic  region.  Character¬ 
izes  a  specification  of  CC0VER(5,11)  and  CFREQ(17,  4,  11) 
in  Block  Data  CDATA  for  KMODEL  =  1,10;  user  must  supply  his 
own  data  for  KM0DEL=11. 

For  ICC =1,5;  KMsKMODEL* 1 , 11 


(continued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


CCOVER(ICC.KM)  - 

CLDWT  Coimon 
1DX  - 

WT (I )  - 

1=1, 10X 

TRANS (I)  - 

I  —  1 , IQX-1 

EMISS(I)  - 
1=1, IDX-1 

OPT  INI  Common 
RADSW  - 


OPTION  Common 
TRNSOPT  - 


QNCNC  Common 
NCNC  - 


Fractional  occurrence  frequency  of  cloud-coverage  category 
ICC  for  given  KMODEL. 


Index  for  length  of  arrays  returned  from  Subroutine  CLDWT. 
IDX  equals  160  for  a  full  set  of  159  cloud-layer  and  cloud- 
type  configurations  and  is  less  for  a  restricted  set. 

Probability  of  configuration-I .  IDX  equaling  160 
corresponds  to  a  cloud- free  1 ine-of-sight. 

Transfer  coefficient  for  configuration-I.  In  NBR  Module, 
geometry  for  transmission  through  clouds  is  not  included; 
only  geometry  for  reflection  of  solar  ray  from  the  highest- 
layer  cloud  in  configuration-I  is  included.  Attenuation  is 
included  (within  the  Natural  Cloud  Model)  to  12-km  al¬ 
titude.  (1/sr) 

Thermal  emission  spectral  radiance  frcm  the  highest-layer 
cloud  in  configuration-I  with  attenuation  computed  (within 
the  Natural  Cloud  Model)  to  12-km  altitude. 

[W/(km  sr  vm)] 


Logical  variable  serving  as  option  switch  for  atmospheric 
volume  emission  calculation;  passed  to  Subroutine  TRNSCO. 
=.TRUE . ,  Tncl  ide  call  (from  Subroutine  TRNSCO)  to  Sub¬ 
routine  ATMRAD. 

=. FALSE.,  Bypass  call  to  Subroutine  ATMRAD  and  perform 
transmittance  calculation  in  Subroutine  TRNSCO  without  air 
emission. 


Logical  variable  affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-3  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  UPWFLL,  TRNSOPT 
is  used  only  in  the  argument  list  for  calls  to  Subroutine 
TRANS. 


A  variable,  set  to  NC  after  the  double  call  to  Subroutine 
STEPS  in  Subroutine  TRNSCO,  employed  to  facilitate  being 

(conti nued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


able  to  use  zero-kilometer  altitude  in  the  NBR  Module.  For 
more  information,  see  comments  preceding  label  number  22  in 
Subroutine  UPWELL. 

SOLARP  Comnon 

SOLLAT,  -  North  latitude  and  east  longitude  of  subsolar  point. 

SOLLON  (radians) 

For  L=1 .NWAVEJ 

SOLIRR(L)  -  Solar  spectral  irradiance  at  the  topgof  t^e  Earth's  atmo¬ 
sphere  at  wavenumber- index  L.  [W/(cnr  cm"1)] 

UPWEIS  Comnon 

UPWALT,  -  Surface  altitude,  north  latitude,  and  east  longitude  of  the 

UPWLAT,  sub-V-point  at  which  the  upwelling  radiance  is  computed. 

UPWLON  (km,  radians,  radians) 

For  1=1 ,NALTJ;  M  JBAND=1 .NBANDS 

NALT(M)  -  Number  of  altitudes  ZKM(I,M)  for  (broad)  wavelength-band 
index  J BAND.  Defines  NALTJ . 

ZKM(I,M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling  radi¬ 
ance  is  computed,  (km) 

NNADIR,  -  Number  of  nadir  and  azimuth  angles  at  Point  V  at  which 

NAZI  upwelling  radiance  is  computed. 

NWAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral  radi¬ 
ance  is  to  be  computed  for  (broad)  wavelength- band  index 
JBANO .  Defines  NWAVEJ. 

CLDFLG  -  Index  for  optional  Inclusion  of  natural  clouds 
=0.,  Clouds  are  not  included. 

=1.,  Clouds  are  included. 

OUTPUT  VARIABLES 

FLAGS  Comnon  (differs  from  GRC's) 

ITFLAG  -  Flag  indicating  the  diurnal  condition  at  Point  V',  for  use 
by  Subroutine  CLDWT  in  the  Natural  Cloud  Module. 

( conti nued) 
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Table  b-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


=0,  Sun  is  below  the  horizon. 
=1,  Sun  is  above  the  horizon. 


POSITN  Conmon 


POSALT, 

FOSLAT, 

POSLON 


Altitude,  north  latitude,  and  east  longitude  of  Point  P  at 
which  1 ine-of-sight  (from  fictitious  detector  at  Point  V) 
intersects  Earth's  surface,  (km,  radians,  radiansl 


C12ALT , 
C 121  AT, 
C12L0N 


Altitude,  north  latitude,  and  east  longitude  of  Point  C 
at  which  1 ine-of-sight  (directed  toward  Point  P  from 
fictitious  detector  at  Point  V)  intersects  the  I2-km  alti¬ 
tude  surface,  (km,  radians,  radians) 


SANDD  Conmon 

XS,  -  Earth-centered  Cartesian  coordinates  of  the  sun.  The 
YS,  orientation  of  the  system  is  shown  in  Figure  5-5.  (km) 
ZS 

XD,  -  Earth-centered  Cartesian  coordinates  of  the  fictitious 
YD,  detector  at  Point  V.  (km) 

ZD 

UL,  -  Direction  cosines  of  Point  P  from  Point  V. 

VL, 

WL 

SORCE  Common 


(Solar  coordinates  are  needed  in  Subroutine  TRANSF  of  the  Natural 
Cloud  Module. ) 


NSORCE  -  Number  of  sources.  Set  to  1  i  n  data  statements. 

HSORCE(l)  -  Altitude  of  sun  (RSUN),  set  in  data  statement,  (km) 

RSORCE(l)  -  Radius  of  source.  True  value  for  sun  is  not  relevant  for 
this  application  in  the  NBR  Module.  Set  to  0.0  in  data 
statement. 


THETAS,  -  Colatitude  and  east  longitude  of  subsolar  point,  (degrees) 
PHIS 


(conti nued) 
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Table  6-2,  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


TECTOR  Comnon 

DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of  fictitious 
OETLAT,  detector  at  Point  V.  (km,  radians,  radians) 

DETLON 

*************************************** 

o  Note:  UPRAD(K,L)  (in  /UPWELS3/) ,  UPRADAI I ,J ,L )  (in  /UPWELS3/) ,  and 

UPRADNd  .L.JBAND)  (in  /UPWELS/)  are  cloud-free  results.  For  results  which 
also  include  cloud  effects  for  altitudes  d2  km,  use  the  corresponding 
arrays  RXXX(K,L),  RXXXA(  1 , 1  ,L ) ,  and  RXXXN(I.L),  all  in  /UPWELS 1/.  To  these 
arrays  one  must  add,  respectively,  the  base-value  quantities  ARCVA! I ,J ,L ) , 
ARCVAd  ,J,L),  and  ARCVN  (I  ,L )  (in  /UPWELS  I/). 

o  In  the  GRC  version,  for  altitudes  >12  km  and  if  clouds  are  included,  the 
array  UPRADNd  ,L,UBAND)  is  reset  as 

UPRADNd  ,L,JBANQ)  =  R050N(1KK,U  +  ARCVN  (IKM,L  ) , 

which  is  transferred  through  /UPWELS/  to  (the  GRC)  Subroutine  UPWELT. 

Thus,  in  the  GRC  version,  for  altitudes  ZKM  >12  km,  UPRADN  is  not  the  cloud- 
free  result  but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem). 

************************  *************** 
UPWELS  Common 

IDAYV  -  Index  for  diurnal  condition  at  sub-V-point. 

=0,  Solar  zenith  angle  >  90° 

=1,  Solar  zenith  angle  5  90°. 

For  I  =  1,NALTJ;  L  =  1,NWAVFJ;  MsJBAND=l ,NBAND$ 

UPRADNd, L,M)  -  Nadir- averaged  value  of  UPRADAd  ,J  ,L ) .  [W/(cm^  sr  cm  *)] 

I i*'t  Iidcx  for  number  ?e  altitudes  at  which  calculations  are 

made  v^ien  clouds  are  included  (used  ’-n  Subroutine  SURRAD), 

UPWELS 1  Comnon 

For  1  =  1,NALTJ;  J=1,NNA0IR;  K=1,NAZ1;  L=1,NWAVEJ;  MdBAND  =  l  ,NBANDS 

( conti nued) 
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Table  6-2.  Input  and  output  variables  for  Subroutine  UPWELL  (Cont'd). 


ARCVA(I ,J,L] 


ARCVN (I ,L) 


When  clouds  are  considered  (ZKM(I.M)  >_  12.01,  a  component 
of  the  upwelling  spectral  radiance  received  at  Point  V  (at 
altitude-I),  from  air  emission  above  12-km  altitude,  along 
a  ray  directed  to  Point  P  on  the  Earth's  surface  (at 
nadir-J  and  independent  of  azimuth-K).  [W/(cm  sr  cm  )] 

Nadir-averaged, val ue  of  ARCVA(I,J,L)  for  ZKM(1,M)  1  12.0  km. 
[W/(cm  sr  cm'  )] 


For  XXX  =  10,  25,  50,  90,  100 

RXXX(X,L)  -  XXX-percentil e  of  the  integral  distribution  of  the  total 

(including  that  from  statistical  clouds)  natural  upwelling 
spectral  radiance  received  at  Point  V  for  wavenumber-L  (at 
implicit  altitude-lKM  above  surface  material -MSM)  along  a 
ray  directed  to  Point  P  on  Earth's  surface  l at  implicit 
nadir-J  and  explicit  azimuth-K ) .  [W/(cm  sr  cm  )] 

**Note:  RXXX(K,L)  does  not  include  ARCVA(I ,J,L) .  Cur¬ 
rently,  UPRAO(K.L)  and  RXXX(K,L)  are  being  written  in 
binary  form  on  logical  unit  No.  8,  for  all  appropriate 
altitudes  and  nadirs. 


RXXXA(I ,J ,L)  -  Azimuth- averaged  value  of  RXXX(K,L).  [W/(an 

RXXXN (I ,L 1  -  Nadir-averaged  value  of  RXXXA(I ,J,L) .  [W/(cm2 


sr  cm'1)] 
sr  cm- 1 ) ] 


UPWELS2  Common 

JBAND1  -  Same  as  JBAND,  but  made  available  to  Subroutine  S'JRRAD  to 
facil itate  print. 

UPUELS3  Common 

For  I =1 ,NALTJ ;  J=1,NNADIR;  K=1 ,MAZ 1 ;  L=1,NWAVEJ 

UPRA0(X,L)  -  Natural  upwelling  spectral  radiance  received  at  Point  V  (at 
altituae-I  above  surface  material -MSM)  along  a  ray  directed 
to  Point  P  on  Earth's  surface  (at  nadir-J  and  azimuth-K). 


bPRADAd  ,J,L] 


(Implicitly,  l=l,NALTJ;  J  =  1 , NADIR.  1-  and  J -dependences 
are  not  stored  so  user  must  print  UPRA0(X,L)  immediately 
after  computation  if  he  wants  to  see  them.  Currently, 
UPRAC(K.L)  and  RXXX(K,l)  are  being  written  in  binary  form 
on  logical  unit-jNo.  8,  fir  all  appropriate  altitudes  and 
nadirs.)  [W/(cm  sr  cm)] 


Azimuth-averaged  v.Aue  of  JPRA0(<,L).  [W/(cm  sr 


on  1 )  ] 
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C.  Nadir  Angle  Loop  (J=1,NNAD1R) 

1.  Advance  fractile  < FRCTL )  of  tangent  solid  angle  (OMEGAT (I ) ) . 

2.  For  fractile  FRCTL,  get 

a.  Nadir  angle  (BETA). 

b.  Zenith  angle  (CHI)  of  PV. 

c.  Earth-central  angle  (ALPHA). 

d.  If  clouds: 

(1)  Zenith  angle  (CHIC)  of  CV. 

(2)  Earth-central  angle  (ALPHAC). 

3.  Initialize  azimuth  loop  (number  of  azimuths  and  azimuth 
angle).  If  IDAYV  =  0  or  MSM  =  1,  set  NAZI  =  1. 

D.  Azimuth  Angle  Loop  (K=1,NAZI) 

1.  Allow  solar  specular  point  to  be  computed  (at  most)  once 
per  altitude. 

2.  Advance  azimuth  angle. 

3.  Call  AGAGEO  to  set  latitude  and  longitude  of  Point  P  in 
/POSITN / . 

4.  Call  GEOXYZ  to  get  RP  and  thence  direction  cosines  (UL.VL, 
WL)  for  /SANDQ/ . 

5.  If  clouds: 

a.  If  IKM=1 ,  Point  C  is  at  Point  V  and  RC  =  RV. 

b.  If  l KM  >1: 

(1)  Call  AGAGEO  to  set  latitude  and  longitude  of 
Point  C  in  /POSITN/. 

(2)  Call  GEOXYZ  to  get  RC  for  later  use  in  call  to 
TRNSCO . 

6.  Initialize  position  (FILPOS)  of  file  LTMTE  (necessary  if 
TRNSOPT  =  .FALSE.). 

E.  Wavenumber  Loop  (L  =  l .NWAVE (JBAND  l^NWAVEJ  ) 

1.  Advance  central  wavelength  (ZLAM) 

2  Call  SURRAD  to  get: 
a.  At  Point  P: 

(1)  Emitted  radiance,  RAD(l);  for  L^i. 
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(2.1)  Unattenuated  reflected  solar  radiance,  RAD(2); 
for  L>1. 

(2.2)  Path  parameters  [UPS(IT,N,1)  and  UPPS ( IT ,N, 1 )] 
for  path  SP;  for  L=l. 

(3)  Aerosol  transmittance,  TASP(L)  through  /AIRSOL/, 
for  path  SP;  for  L>1. 
b.  At  Point  C  ( if  IKM=1): 

(1)  Path  parameters  [UCS(IT,k)  and  UPCS(IT.N)]  for 
path  SC;  for  1=1. 

(2)  Aerosol  transmittance,  TASC(L)  through  /AIRSOL/, 
for  path  SC;  for  L>1. 

3.  Call  TRNSCO (PY )  to  get  for  path  PV: 

a.  (Derived  from  Word-8,  -7,  and  -5  of  Dataset-31, 
obtained  by  calling  PREV): 

Aerosol  transmittance,  TAPV(L); 

Total  (molecular  and  aerosol )  transmittance,  TTPV(L); 
Air  emission,  AEPV(L). 

b.  From  XYZCOM  Common: 

Path  parameters,  U(IT,N,2)  and  UP(1T,N,2),  preserved 
as  UPV ( IT  ,N )  and  UPPV(IT,N). 

4.  Compute  sum  (temporarily  defined  as  ijPRAD(K ,1 )  and  recog¬ 
nized  as  azimuthally  independent)  of  (l)  the  Earth's  sur¬ 
face  radiance  RAD(l),  multiplied  by  the  total  transmittance 
TTPV(L)  along  PV,  and  (2)  the  atmospheric  emission  AEPV(L) 
along  PV: 

[UPRAD(K,L)]old  =  RAD(l)  x.  TTPV(L)  +  AEPV(L)  (K=1,MAZI ) , 

which  is  the  upwelling  spectral  radiance,  for  implicit 
nadir  index-J,  at  night  (IDAYV=0)  and  for  no  clouds. 

5.  If  clouds,  call  TRNSCO(CV)  to  get  for  path  CV: 

a.  (Derived  from  Word-8,  -7,  and  -5  of  Dataset-BI,  ob¬ 
tained  by  calling  PREV): 

Aerosol  transmittance,  TACV(L); 

Total  (molecular  and  aerosol)  transmittance,  TTCV(L); 
Air  emission. 


b.  From  XYZCOM  Conrron: 

Path  parameters,  U  and  UP,  preserved  as  UCV  and  'JPCV. 

6.  Preserve  AECV(L),  which  is  azimuthally  independent,  with  a 
notation  to  indicate  it  is  the  azimuth  average  for  the 
current  values  of  IKM,  J,  and  l: 

ARCVA(  1KM,J  ,L )  =  AECV(L). 

7.  Set  1TFLAG  in  /FLAGS/  equal  to  IDAYY,  for  use  in  Subroutine 
TRANSF  when  called  by  Subroutine  CLDWT. 

S.  Call  CLOWT  to  obtain  through  /CLDWT/  the  arrays  WT,  Eid  1 5S , 
and  TRASS  of  lengths  I3X=160,  IDX-1=159,  and  IDX-1=159, 
respectively.  IDX  equals  160  for  a  full  set  of  159  cloud 
configurations.  VJT  is  the  array  for  weights  corresponding 
to  the  various  cloud  configurations  or  sets;  at  12-km  alti¬ 
tude  (Point  Cl  along  PV,  EMISS  is  the  array  for  cloud-top 
emission  radiances  and  (if  IDA YV  =  1 )  TRANS  is  the  array  for 
the  ( irradiance- to- radiance)  transfer  coefficients  for 
cloud-top  reflection  of  solar  radiation.  WT(Y),  for  any  of 
the  10  location-season  averaged  statistical  cloud  models 
(KM0DEL  =  1 , 10) ,  is  the  probability  that  (a)  the  cloud- 
configuration  set  indicated  by  the  index  M  occurs  and  (b) 
the  detector's  LOS  at  zenith  angle  C'rtl  intersects  the  cloud- 
configuration  set.  The  probability  of  the  detector's  LOS 
intersecting  clouds  is  s  WTIM),  ( M=  1,159). 

9.  Continue  with  following  steps: 

a.  To  facilitate  computing  the  radiance  distrioution 
function  resulting  from  the  statistical  treatment  cf 
natural  clouds,  start  forming  a  new  radiance  distribu¬ 
tion  function  (UPRADC)  and  correspond! ng  weights  (wTL). 

b.  To  facilitate  assessing  the  relative  importance  of 
emission  and  reflection  contributions,  preserve  the 
emission  component  of  'JPTADC  in  another  array  (JPRPC1). 

c.  Multiply  the  spectral  radiance  fron  the  Natural  Cloud 
Module,  expressed  in  W/(km  sr  urn),  by  l.OE-14  \ 

?  ?  _  i 

(ZLAM)  to  obtain  Vl/(cm“  sr  cm  ). 
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d. 


Include  transmittance  between  Points  C  and  V,  For 
M=i, 159: 

[JP.^ADC ( M)  Jo1d  =  1.0E-14  x  (ZLAM)'  x  EMISS (M j  x  TTCV('l) 
UP}DC1(M)  =  C'JPnADCIM)  3ol d 

wtc(m)  =  vrr  (m) 

159 

SUMViTC  =  ^  WTC(M). 

M-l 

e.  slow  use  fact  that  the  radiance  at  Point  V  due  to  air 
emission  along  PV  can  be  separated  into  two  portions: 
AEPV(L)  =  hEPC(L)  x  TTCV(L)  +  AECV(L) 

or 

AEPC(L)  x  TTCV(t)  *  AEPV(L)  -  AECV(L). 

Hence  we  need  to  subtract  AECV(L)  from  UPRA9(K.,L)  in 
order  that  'JP3A9C  ( 160)  will  be  the  air  emission  along 
PC  but  attenuated  along  CV. 

UPR ADC ( 160)  =  ’JPR AO (< , L )  -  AECV(L) 

UPPDC 1(160)  =  UPRADC ( 160 ) . 

f.  We  need  the  mean  probability  of  a  cloud-free  line-of- 
sight  (CFLOS)  along  PC  (at  zenith  angle  C'H!  at  Point  P 
corresponding  to  nadir  angle  BETA  at  Point  V).  As 
noted  in  Step  3,  the  probability  of  the  detector's  LOS 
intersecting  clouds  is  S'JMWT  =  rwT(M),  (M=  L ,  159  ) . 

Hence  we  take  (l-SUffWT)  as  the  desired  probability  of 

a  CFLOS,  CFPV: 

CF°V  =  1-SUMWTC 
vn  v,  ( 1 60 )  =  CFPV. 

This  WTCI160)  obtains  for  night,  the  daytime  value  is 
set  1 ater . 

10.  If  IJAYV=1 ,  we  must  include  the  surface-reflected  solar 
radiation: 
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a.  In  Step  3b,  we  preserved  the  path  parameters  along  PV 
as  UPV(IT.N)  and  UPPV(IT,N).  We  now  add  the  param¬ 
eters  for  path  segments  SP  and  PV  and  preserve  as  USPV 
and  UPSPV  arrays. 

U  SPV(IT.N)  =  U  PS(IT,N)  +  U  PV(IT,N). 

UPSPV  ( IT,N)  =  UPPS(IT.N)  •*  UPPY(IT.N). 

b.  Call  TRANS(..., USPV, UPSPV,...)  to  get  the  total 
molecular  transmittance  (TMSPV(L))  for  the  total  path 
(SP+PV). 

c.  To  get  the  aerosol  transmittance  for  the  total  path 
(SP+PVl,  use  T ASP { L )  returned  through  /AIRSOL/  from 
call  to  Subroutine  SURRAD  and  TAPV(L)  from  Subroutine 
TRNSCO's  call  to  Subroutine  ATMRAD  for  path  PV. 

d.  Thus  the  total  transmittance  for  the  surface- reflected 
solar  ray  along  the  total  path  (SP+PV)  is 

TTSPV(L)  =  TMSPV(L)  x  fTASP(L)  x  TAPV(t)]. 

e.  The  total  upwelling  r-adiance  along  the  path  PV  (with¬ 
out  clouds)  is 

[UPRAD(K,L)]new  =  [UPRA0(K,L)]old  +  TTSPV(L)  x  RAD (2 ) 
where  only  RAD(2)  may  depend  on  azimutn,  which  it  will 
for  non-Lambertian  surface  materials  (MSM>1).  The 
first  term  is  the  sun  of  the  attenuated  ground- surface 
emission  and  air  emission  along  path  PV  (obtained  in 
Step  E.4)  and  the  second  term  is  the  product  of  the 
unattenuated  surface-reflected  solar  radiance  (ob¬ 
tained  from  Step  E. 2. a. (2.1))  and  the  total  trans¬ 
mittance  (obtained  from  Step  E.lO.d). 

11.  If  IDAYV=1  and  clouds  are  present,  one  must  include  the 

cloud-reflected  solar  radiation. 

a.  We  must  convert  the  transfer  coefficients  (TRAMS,  from 
Step  E.8 )  into  radiances  for  the  cloud-reflected  solar 
radiation.  To  do  so,  we  need  the  solar  spectral 
irradiance  E[W/(cm  cm  }]  (normal  to  the  path  to  the 
sun)  at  the  12-km  altitude  point  along  the  path  VP. 

We  use  the  quantity  S0LIRR1L)  =  E,  previously  obtained 
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from  Subroutine  SURRAD ‘s  call  to  SOLRAD  and  available 
tnrough  /SOLARP/. 

b.  We  include  air  transmittance  [TTSCV(L)]  above  12-km 
altitude  along  the  total  path  (SC+CV).  TTSCV(L)  is 
given  by  the  product  of  the  molecular  transmittance 
[TMSCV (L ) ]  and  the  aerosol  transmittance  [TASC(L)  x 
TACV(L)].  TMSCV(L)  will  be  computed  by  Subroutine 
TRANS,  given  the  oath  parameters  USCV  and  UPSCV.  From 
Subroutine  TRNSCO's  call  to  PATH  (Step  E.5.b),  we  have 
the  path  parameters  U(IT,N,2)  and  UP(IT,N,?)  (which  we 
saved  as  UCV(IT,N)  and  UPCV(IT.N)  for  the  path  CV. 

The  path  parameters  UCS(IT.N)  and  UPCS ( IT ,N 1  were 
obtained  from  the  call  to  Subroutine  SURRAD  [Step 
E.2.b.(l)].  Add  to  the  path  parameters  and  preserve 
as  USCV  and  UPSCV  arrays. 

U  SCV(IT.N)  =  U  CS(IT,N)  +  U  CV(IT,N) 

UPS  CV ( I T , M )  =  UPCS(ir.N)  +  UPCV ( FT ,N ) . 

c.  Call  TRANS ( . . . , USCV, UPSCV , . . . )  to  obtain  the  total 
molecular  transmittance  TMSCV(L)  for  the  total  path 
(SC+CV )  - 

d.  To  get  the  aerosol  transmittance  for  the  total  path 
(SC+CV ) ,  use  TASC(L)  returned  through  /AIRSQL/  from 
call  v.o  Subroutine  SURRAD  and  TACV(L)  from  Subroutine 
TRNSCO's  call  to  Subroutine  ATMRAD  for  path  CV. 

e.  Thus  the  total  transmittance  for  the  cl oud-refl ected 
solar  ray  along  the  total  path  (SC+CV)  is 
TTSCV(L)  =  TMSCV (L )  x  [TASC(L)  xTACV(L)l. 

f.  A  contribution  to  the  total  upwelling  radiance  along 
the  path  CV  (with  clouds  at  or  below  Point  C)  is 
CUPRADC ( M ) ] new  =  [UPRADC(M)]old 

+  SOI.IRR (L  )  x  TRANS (M)  xTTSCV(L) 

(M= 1,159) 

where  only  the  transfer  coefficient  TRANS (M)  depends 
on  azimuth.  The  first  term  is  the  cloud-surface 
emission  attenuated  along  path  CV  (obtained  in  Step 
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E.9.d)  and  the  second  term  is  the  product  of  the  un¬ 
attenuated  cloud-surface-reflected  solar  radiance 
[SOLIRR(L)  x  TRANS (M) ]  and  the  total  transmi ttance 
(obtained  from  Step  E.ll.e). 

g.  WTC(160)  needs  to  be  reset  for  daytime  conditions.  We 
multiply  the  probability  of  the  (nighttime)  one- leg 
CFLOS  by  the  probability  of  not  having  the  second 
(daytime)  leg: 

WTC(160)  =  CFPV  x  (1.0  -  CFPS), 

where  CFPV  was  set  in  Step  E.9.f  and  CFPS  was  set  in 
Step  B.4. 

h.  For  daytime,  the  arrays  UPRADC,  UPRDC 1,  and  WTC  must 
be  augmented  by  inclusion  of  members  for  a  two- leg 
CFLOS: 

UPRDC 1(161)  =  UPRADC ( lbO ) 

UPRADC ( 161 )  =  UPRADC ( 160)  +  RAD ( 2 )  x  TTSPV (2 ) 

WTC ( 161 )  =  CFPS  x  CFPV 

Wnere  UPRADC ( 160 )  was  set  in  Step  E,9.e,  RAD(2)  in 
Step  E. 2. a. (2.1),  and  TTSPV(L)  in  Step  K.iO.d. 

12.  For  clouds,  day  or  night,  the  distribution-function  arrays 
must  be  processed. 

a.  Augment  each  of  the  three  arrays  (UPRADC,  UPRDC 1,  and 
WTC)  with  a  zero-value  member,  which  allows  Subroutine 
LINEAR  to  interpolate  within  its  given  array  if  the 
weight  of  the  normally  smallest  member  exceeds  the 
smallest  fractile  (now  0.10)  for  which  an  integral- 
distribution  value  is  requested. 

UPRADC(II)  =  UPRDC  1(11)  =  WTC  =  0.0 

161  for  night 

162  for  day. 

b.  Call  SORTLJ  to  sort  the  radiance  array  UPRADC  in  in¬ 
creasing  order  and  carry  along  the  arrays  UPRDC 1  and 
WTC. 
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c.  Sura  the  weights  and  normalize  to  unity  (although,  in 
principle,  the  weights  are  already  so  normalized). 

d.  Interpolate  the  array  UPRADC  (by  calling  LINEAR)  to 
obtain  the  percentile  values  (called  RXXX(K,L))  corres¬ 
ponding  to  XXX  =  10,  25,  50,  and  90  (i.e.,  WTC  =  0.10, 
0.25,  0.50,  and  0.90).  For  XXX  =  100,  set  RXXX(K,L)  = 

U PR ADC (II). 

C'.  Nadir  Angle  Loop  (J=1,NNADIR)  Completion 

After  completing  the  wavenumber  and  azimuth  loops,  compute  aver¬ 
age?-  jver  azimuth  angles  K  at  wavenumbers  L  =  1,NWAVEJ;  nadir 
angle  J;  and  altitude  I  (or  I KM  for  clouds). 

NAZI 

UPRADA(I,J,L)  =  (1/NAZI  )^  UPRAD(K.L) 

K=1 


NAZI 

RXXXAf  IKM.J  ,L  )  =  (1/NAZI  )^  RXXX(K.L) 

K=1 

XXX  «  10,  25,  50,  90,  100 

Q'.  Altitude  Loop  (l=l,NALT0)  Completion 

After  completing  the  nadir  loop,  compute  averages  over  nadir 
angles  J  at  wavenumbers  L=1,NWAVE0  and  altitude  I  (or  I KM  for 
clouds): 

NNADIR 

UPRADN ! I  ,L , JBAND )  =  ( 1 /NNADIR )  ^  UPRADA( 1 , J ,L ) 

0=1 


NNADIR 

ARCVN ( IKM,L )  =  ( 1  /NNADIR )  ^  ARCVAt IKM, J ,L ) 

J  =  1 
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NNAD1R 

RXXXN(IKM.L)  =  (1/NNAOIR)  ^  RXXXA(IKM,J,L). 

J=1 

Since  the  inclusion  of  the  index  JBAND  was  a  ’ate  change,  we 
elected  not  to  modify  the  arrays  ARCVN(IKM.L)  ar.d  RXXXN(IKM,L) 
to  provide  for  an  explicit  dependence  on  the  index  JBAND  as  we 
did  for  the  array  UPRADNd  ,L, JBAND ) .  This  limitation  must  be 
remembered  and  removed  if  JBAND  >1  and  if  clouds  are  included, 
unless  one  adopts  the  GRC  definition  of  UPRADNi I ,L, JBAND) ,  i.e., 
UPRADN(1,L, JBAND)  =  R050N(IKM,L)  +  ARCVN(IKM,L) . 

6-3  OTHER  ROUTINES  IN  UPWELLING  NATURAL  RADIATION  MODEL 

Subroutine  UPWELL,  the  principal  routine  in  the  Upwelling  Natural 
Radiation  Model ,  makes  a  number  of  calls  as  shown  in  Figure  6-4. 

6- 3.1  SAI  Routines 

The  calls  to  the  left  of  the  vertical  line  in  Figure  6-4  are  related 
to  the  Natural  Cloud  Model.  Subroutine  GEOXYZ  has  been  discussed  in  Section 
5-4.1.  Subroutine  XMIT  is  described  in  Table  7-3a.  The  routines  CFLOSF, 

CLDWT,  SORTLJ,  and  LINEAR  are  part  of  the  Natural  Cloud  Model;  listings  of 
them  are  in  Volume  24  and  brief  descriptions  of  them  are  given  here  in  Table 

7- 3a.  Note  that  the  listing  of  SORTLJ  given  here  in  Section  8  differs  in  an 
essential  aspect  from  that  in  Volume  24  and  must  be  used  with  the  NBR  Module 
(the  listing  in  Volume  24  is  satisfactory  for  its  use  there). 

The  routines  AGAGEO,  GEOREA,  GEOTAN  (called  by  GEOREA),  REATAN 
(called  by  AGAGEO),  and  TANGEO  (called  by  AGAGEO)  provide  coordinate  transforma¬ 
tions.  They  art  described  in  Table  7-3a.  Their  input  and  output  variables 
are  given  in  Tables  6-3  through  6-7,  respectively. 
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Figure  6—4.  Routines  called  directly  from  the  principal  routine  (UPWELL)  in  the 

Upwelling  Natural  Radiation  Model.  For  subsequent  calls,  see  Figure  7—1. 


Table  5-3. 


Input  and  output  variables  for  Subroutine  AGAGEQ. 


INPUT  VARIABLES 


Argument  List 

HA1,  -  Altitude,  colatitude,  and  east  longitude  of  Point  1. 
GC1,  (cm,  radians,  radians) 

GL1 

AZ21,  -  Azimuth  angle  and  geocentric  angle  of  Point  2  relative 

GA21  to  Point  1.  (radians) 

HA2  -  Altitude  of  Point  2.  (cm) 

OUTPUT  VARIABLES 

Argument  Li st 

GC2,  -  Colatitude  and  east  longitude  ot  Point  2.  (radians) 
GL2 


Table  6-4.  Input  and  output  variables  fo*’  Subroutine  GEOREA. 


INPUT  VARIABLES 


Argument  Li st 


HA1 , 
GC1, 
GLl 


Altitude,  colatitude,  and  east  longitude  of  Point  1. 
(cm,  radians,  radians) 


HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 
GC2 ,  (cm,  radians,  radians) 

GL2 


OUTPUT  VARIABLES 
Argument  List 

SR21,  -  Slant  range,  elevation,  and  azimuth  of  Point  2  relative 

EL21,  to  Point  1.  (cm,  radians,  radians) 

AZ2 1 


Table  6-5.  Input  and  output  variables  for  Subroutine  GEOTAN. 


INPUT  VARIABLES 
Argument  List 

HA1,  -  Altitude,  colatitude,  and  east  longitude  of  Point  1. 
GC1,  (cm,  radians,  radians) 

GL1 

HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 
GC2,  (cm,  radians,  radians) 

GL2 

OUTPUT  VARIABLES 


Argument  Li  St 

XE21,  -  X,  Y,  and  Z  coordinates  of  Point  2  relative  to  Point  1.  lam) 

YN21 , 

ZV21 


Table  6-6.  Input  and  output  variables  for  Subroutine  REATAN. 


INPUT  VARIABLES 
Argument  List 

SR,  -  Slant  range,  elevation  angle,  and  azimuth  angle  of  Point  P. 
EL,  (cm,  radians,  radians) 

AZ 

OUTPUT  VARIABLES 
Argument  List 

XE,  -  X,  Y,  and  Z  coordinates  of  Point  P.  (cm) 

YN, 

ZV 


lb? 


Table  6-7.  Input  and  output  variables  for  Subroutine  TANGEO. 


INPUT  VARIABLES 
Argument  List 

HA1,  -  Altitude,  colatitude,  and  east  longitude  of  Point  L. 

GC1,  (cm,  radians,  radians) 

GLl 

ZE21,  -  X,  Y,  and  Z  coordinates  of  Point  2  relative  to  Point  1.  (an) 

YN21 , 

ZV21 

OUTPUT  VARIABLES 
Argument  List 

HA2,  -  Altitude,  colatitude,  and  east  longitude  of  Point  2. 

GC2,  (cm,  radians,  radians) 

GL2 


6-3.2  G.E.  Tempo  Routines  (TRNSCO,  ATMRAD,  TRANS) 

Three  vc-ry  important  routines  called  either  directly  or  indirectly  by 
Subroutine  UPWELL  are  Subroutines  TRNSCO,  ATMRAD,  and  TRANS.  A  brief  descrip¬ 
tion  of  the  purpose  of  each  of  these  routines  is  included  in  Table  7-3a.  We 
have  summarized  their  input  and  output  variables  here:  Subroutine  TRNSCO 
(Table  6-8),  Subroutine  ATMRAD  (Table  6-9),  and  Subroutine  TRANS  (Table  6-10). 
Ewing  et  al .  have  given  briefer  statements  about  two  oi  >e  routines  in  Volune 
31:  TRNSCO  (p.  75)  and  TRANS  (p.72,  with  flow  chart  on  p.  73). 
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Table  6-8.  Input  and  output  variables  for  Subroutine  TRNSCO. 


INPUT  VARIABLES 
Argument  list 
For  1=1,3 


RX(I),  - 

RY(i), 

RZ(l) 

LB I NT  - 


Location  vectors  of  Points  X,  Y,  and  Z  which,  respectively, 
are  typically  but  not  necessarily  the  locations  of  the 
detector,  scattering  site,  and  source,  (cm) 

Word-5  (LHV)  in  GRC  Dataset-BN  (No.  114),  List  of  Band- 
Interval  Datasets  (BI).  Strictly,  LB  I NT  is  the  pointer 
(i.e.,  contains  the  (Q-array)  address)  for  the  List  Header 
of  the  Band-Interval  Datasets-BI  corresponding  to  Dataset- 
BN « 


RADSW  -  Logical  variable  serving  as  option  switch  for  atmospheric 
volume  emission  calculation. 

=.TRUE.,  Include  call  (from  Subroutine  TRNSCO)  to  Sub¬ 
routine  ATMRAD. 

=. FALSE.,  Bypass  call  to  Subroutine  ATMRAD  and  perform 
transmittance  calculation  in  Subroutine  TRNSCO 
without  air  emission. 

Dataset-Bl  (Band-Interval  Dataset  No.  115) 

Q(l)  =  BNLO  BI,  -  Low  and  high  wavelengths  for  wavelength-band- index 

Q(2)  =  BNHI  BI  J.  (urn) 

Q(3)  =  WLO  BI,  -  Low  and, high  wavenumbers  for  wavelength-band- index 

q(4)  =  WHI  BI  J.  ( cm_i ) 

XYZCOM  Common 


LTMTE 


Binary  file  containing  the  band-model  parameters_which  were 
derived  in  Subroutine  TRANSB  from  the  basic  5-ciri  reso¬ 
lution  data.  Here  in  Subroutine  TRNSCO,  File  LTMTE  is 
rewound  for  use  in  Subroutine  TRANS. 


OPTION  Coronon 


TRNSOPT 


-  Logical  variable  affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-8  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  TRNSCO,  TRNSOPT 
is  used  only  in  the  argument  list  for  the  call  to  Sub¬ 
routine  TRANS,  a  call  that  occurs  only  if  RADSW  =  .FALSE., 
which  is  not  the  case  in  the  NBR  Module. 

( conti nued) 
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Table  6-8.  Input  and  output  variables  for  Subroutine  TRNrC0  (Cont'd). 


OUTPUT  VARIABLES 

Description  of  the  output  requires  caveats. 

1.  In  the  (rare)  event  the  path  should  not  intersect  the  shelled-atmo¬ 
sphere,  then  initialized  values  of  Word-5  (if  RADSW  -.TRUE,), 

Word-7,  and  Word-8  of  Dataset-81  are  explicitly  set  here  in  Sub¬ 
routine  TRNSCO. 

2.  In  the  usual  event  that  the  path  does  intersect  the  atmosphere, 
there  are  two  cases  to  consider: 

2.1  RADSW  =  .TRUE.  (Applies  to  N3R  Module) 

Subroutine  ATMRAD  is  called  to  evaluate  Words-5,  -7,  and  -8  of 
Dataset-BI,  but  this  dataset  is  not  called  here  in  TRNSCO  and  thus 
is  not  explicitly  available  in  TRRSCO. 

2.2  RADSW  =  .FALSE.  (Does  not  apply  to  N3R  Module) 

Subroutine  ATMRAD  is  not  called.  Hence,  the  calls  that  ATMRAD  makes 
to  get  the  transmittance  calculations  done  must  be  made  here  in 
TRNSCO.  In  this  case,  Word-7  and  -3  of  Dataset-31  are  explicitly 
avail  able. 

Definitions  of  Word-5,  -7,  and  -3  of  Dataset-BI  follow. 

Q(5)=3KGND  SI  -  In-band- interval  radiance  (due  to  atmospheric 

emission)  over  the  entire  path  length  (which  should 
have  1-leg  and  not  2-leqs).  [W/(cm  sr  band-interval)] 

Q(7)=TR.ANS  BI  -  Product  of  molecular  and  aerosol  transmittances  over 
the  entire  path  length. 

Q(3)=IDSBX  31  -  Aerosol  transmittance  over  the  entire  path  length. 

Note:  This  is  a  temporary  use  of  Word-S  (and  not  the  GRC  dictionary 
use  of  Word-8).  Here  it  is  used  to  carry  information  to  Sub¬ 
routine  UPWELL. 

QNCNC  Conrnon 

NCNC  -  A  variable  set  to  NC  and  made  available  to  Subroutine 
UPWELL  tu  facilitate  being  able  to  use  zero-kilometer 
altitude  in  the  N3R  Module.  For  more  information,  see 
comments  preceding  label  number  22  in  Subroutine  UPWELL. 


Table  6-9.  Input  and  output  variables  for  Subroutine  ATMRAD. 


INPUT  VARIABLES 

Argument  List 

LOGIC  -  Logical  variable. 

=  .TRUE.,  On  first  entry  (for  first  path  segment)  from 
Subroutine  TRNSCQ  (and  is  reset  to  .FALSE,  in 
ATMRAD). 

=. FALSE.,  On  subsequent  entries  along  the  same  path. 


I  SHELL  ( 1 ) ,  -  lNDX(I)  and  INDX(l-t-l)  in  call  from  Subroutine  TRNSCO. 

ISHELL (2 ) 

ISHELL ( 3 )  -  Used  in  evaluating  the  logical  variable  TEST.  ISHtLL(3) 

will  typically  be  equal  to  lNDXll+2),  a  positive  quantity 
except  on  the  last  call  to  ATMRAD  when  the  last  path- 
segnent  is  being  treated,  at  which  time  ISHELL (3)  will 
become  equal  to  INDX(NC+1)  which  had  been  set  to  0  in  Sub¬ 
routine  STEP. 


XFRAC(l),  -  XFRACS ( I )  and  XFRACSi I +1 )  in  call  from  Subroutine  TRNSCO. 

XFRAC(2)  To  help  understand  the  values  and  uses  of  XFRACS(i),  (1) 
recall  that  the  total  path  has  NC-1  segments  and  MC  end 
points  of  these  segments  and  (2)  see  Table  5-8  for  Sub¬ 
routine  STEP. 

DS  -  DS(I+1)  in  call  from  Subroutine  TRNSCO. 

Note:  It  is  always  true  that  DS ( 1 )  =0  and  D S ( NC  + 1 )  1  -1.0, 
where  NC  is  the  number  of  path  segments  plus  one.  ATMRAD 
will  not  be  called  with  I=NC.  (cm] 


LBINT  -  Word-5  in  GRC's  Dataset-BN  (No.  114).  Strictly,  LBINT  is 
the  pointer  (i.e.,  contains  the  (Q-array)  address)  for  the 
List  Header  of  the  Band-Interval  Datasets-Bl  corresponding 
to  Dataset-BN. 


XYZCOM  Common 

FACT  -  Path  resolution  factor  controlling  the  number  of  altitudes 
and  spacing  used  in  Subroutine  SHELLS.  See  Table  7-9  for 
Subroutine  SHELLS.  Here  in  Subroutine  ATMRAD,  FACT  is  used 
to  set  TOL,  which  is  used  to  test  temperature  differences 
across  cel  1 s. 


!  conti nued) 
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Table  6-9.  Input  and  output  variables  for  Subroutine  ATMRAD  (Cont'd). 


For  J=I,NS 

HSHELL(J),  -  Altitude  and  temperature  at  boundary-J .  (H jHELL ( 1  )=0 . 0 ) 

TS (J  )  (cm,  deg  K) 

For  1=1,2;  N=l,10 

U(I,N,2),  -  Cumulative  values  of  path  parameters  U  (areal  density)  and 

UP(I,N,2)  UP  (product  of  U  and  pressure  P)  for  temperature- index-1 
and  species-N  at  end  of  line  segment  DS. 

(cm  at  STP,  atm- cm  at  STP) 

NMOLS  -  Number  (10)  of  molecular  species  in  molecular  transmittance 
model . 

ITMTE  -  Binary  tile  containing  the  band-model  parameters^ ich  were 
derived  in  Subroutine  TRANSB  from  the  basic  5-cm  resolu¬ 
tion  data.  Here  in  Subroutine  ATMRAD,  File  LTMTE  is 
rewound  for  use  in  Subroutine  TRANS. 

OPTION  Common 

TRNSOPT  -  Logical  variable  .affecting  complexity  of  molecular  trans¬ 
mittance  calculation  (see  Tables  7-8  and  6-10  for  Sub¬ 
routines  TRANSB  and  TRANS).  In  Subroutine  ATMRAD,  TRANSOPT 
is  used  only  in  the  argument  list  for  the  call  to  Sub¬ 
routine  TRANS. 

Oataset-BI  (Band-Interval  Dataset  No.  115) 

Q ( 1  )=BNL0  BI,  -  Low  and  high  wavelengths  for  wavel ength-band- index  J. 

Q  (2  )=BNH1  BI  (m) 

Q(3)=WL0  BI,  -  Low  and  high  wavenumbers  for  wavel ength-band- index  J, 

Q(4  )=WHI  BI  (cm"1) 

OUTPUT  VARIABLES 

Dataset-BI  (Band-Interval  Dataset  No.  115? 

Q(5)=BKGND  BI  -  In-band- interval  radiance  to  back  of  cell-OS. 

[W/(cni  sr  ba:.d-interval )] 

Q ( 7 )  =TRANS  BI  -  Product  of  cumulative  molecular  and  aerosol  transmit¬ 
tance  to  back  of  cell-DS.  (dimensionless) 

( conti nued) 
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Table  6-9. 


Input  and  output  variables  for  Subroutine  ATMRAD  (Cont'd). 


Q(8)=IDS8X  BI  -  Cunulative  aerosol  transmittance  to  back  of  „ell-DS. 

Mote:  This  is  the  second  of  two  temporary  uses  of  Word-8  (and  not  the 
GRC  dictionary  use  of  Word-8).  Here,  it  is  used  to  carry 
information  to  Subroutine  UPWELL. 


Table  6-10.  Input  and  output  variables  for  Subroutine  TRANS. 


INPUT  VARIABLES 

Argunent  List 

NTEMP  -  Number  of  temperatures  in  the  atmospheric  transmittance 

model  (set  to  10  in  call  from  either  Subroutine  ATM RAD  or 
TRNSCO). 

M  -  Index  for  mode  of  transmittance  calculation.  Could  be  1, 
2,.. .,15.  Within  the  NBR  Module  (where  TRANS  is  called 
from  ATMRAD,  TRNSCO,  and  UPWELL),  M  is  always  1.  (In  calls 
from  Program  EMISCAT,  M  is  1,  2  and  is  allowed  values  up  to 
15.)  In  Subroutine  TRANS,  M  being  1  limits  use  of  the  U 
and  UP  arrays  to  their  first-half  values.  This  is  consis¬ 
tent  with  the  fact  that  within  the  NBR  Module,  Subroutine 
TRANS  is  always  called  with  M  set  to  1,  U  set  to  u( 1,1,2), 
and  UP  set  to  UP (1 ,1,2).  This  is  also  trite  for  calls  with 
M=1  from  Program  EMISCAT.  but  there,  when  M_^2,  the  calls 
are  with  U  and  UP,  i.e.,  the  entire  arrays. 

For  1=1, NTEMP;  N=1,NSPEC 

U(I,N,1),  -  Path  parameters  U  (species-N  areal  density)  and  UP 

UP(I,N,1)  (product  of  U  and  pressure  P)  for  temperature- index  I  and 

species-N.  (cm  at  STP,  atm-cm  at  STP) 

FK(M)  -  FK(M)  is  used  only  if  M_3.  In  the  NBR  Module,  M  is  always 
1.  (But  for  those  calls  with  M^3  from  Program  EMISCAT, 

FK(M)  is  a  set  of  weights  used  to  partition  the  path 
element. ) 

( continued) 
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Table  6-10. 


Input  and  output  variables  for  Subroutine  TRANS  (Cont'd). 


WDL,  -  Lowest  and  highest  wavenumber  in  the  detector  interval  being 
WOH  used  for  vrfiich  the  transmittance  is  to  be  computed,  (an’1) 

FAST  -  Logical  variable  determining  complexity  of  transmittance 
calculation.  In  calls  to  Subroutine  TRANS  (from  Sub¬ 
routines  ATMRAD,  TRNSCO,  and  UPWELL  within  the  N8R  Module 
and  from  Program  EMISCAT  outside  the  N8R  Module1,  FAST  is 
set  to  TRNSOPT . 

=  .TRU£.,  Transmittance  is  based  on  single-level  groups  and 
statistical  bands. 

*. FALSE.,  Transmittance  is  based  on  mul  tiple-level  groups 
and  random  El sasser  bands. 

In  addition,  note  that  for  TRNSQPT=.TRi£ . ,  Subroutine 
TRANS8  develops  the  band-model  parameters  for  the  user 
inter-,  al  of  interest  and  Subroutine  TRANS  uses  these  band- 
model  parameters  to  compute  the  transmittance  and  optical 
depth  for  the  same  interval.  But  for  TRNS0PT=. FALSE . , 
Subroutine  TRANSB  develops  band-model  parameters  for  an 
interval  with  (probably  but  not  necessarily)  higher  resolu¬ 
tion  than  the  user  interval.  Thus,  to  obtain  the  trans¬ 
mittance  and  optical  depth  for  the  user  interval  ,  Sub¬ 
routine  TRANS  first  computes  the  optical  depth  (XS-1  and 
transmittance  [expi-XS^)]  for  the  higher-resolution  inter¬ 
val  j  and  then  obtainsJthe  transmittance  [TAJ(IS)]  and 
optical  depth  [ABC(IS)]  for  species-IS  in  the  user  interval 
by  using  the  following  expression;  to  perform  the  weighted 
sum  over  those  hi gher- resol ution  intervals  overlapping  tne 
user  interval  . 

TALI  (IS)  =  VV  expl-XS.) 

j  J  J 

l  -In  [TA'J(  IS)  J  for  id*4  TAJ(IS)  <  0  9999 

ABU  IS)  = 

(  Otherwi  se. 


These  formulas  are  not  given  in  Volume  2b. 

For  additional  information  regarding  the  consequences  for 
Subroutine  iRAtiS  due  to  the  two  possibilities  for  TRANSGPT 
in  Subroutine  TRANSB.  see  Table  7-9  for  Subroutine  TRANS6. 

( continued) 
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Table  6-10.  Input  and  output  variables  for  Subroutine  TRANS  (rent'd). 


FILPOS  -  Position  of  file  LTMTE.  Set  to  l.E+04  in  calls  from  Sub¬ 
routine  TRNSCO  and  ATMRaD. 

XY  Common 

For  1=1,10 

TT ( I )  -  Temperature  array  in  atmospheric  transmission  modei . 

XYZCOM  Common 

lTMTE  -  Binary  file  containing  the  band-model  parameterswhich  were 
derived  in  Subroutine  fRANSB  from  the  oasic  5-cnT1  resolu¬ 
tion  data.  Equivalenced  (in  Subroutine  TRANS3)  to  TAPOT, 
for  which  definition  see  Table  7-8  for  Subroutine  TRANSB. 


for  each  read  of  File  LTMTE,  the  202  words  are  stored  as: 

WTL,  -  Lower  and  higher  wavenumbers  of  interval.  ( cm 
WT  H 

For  1=1,10;  N=l,10 

SOD(I.N),  -  Mean  absorption  coefficient  and  inverse  of  mean  line-spacing 
DEI(I,N)  parameter  (or  the  effective  line  density)  for  species-!*  at 
temperature- ’ ndPK- I  for  the  wavenumber  interval  (WTL.WTH). 
[1/cm  at  STP ,  lines/(cm‘  )] 

*  *  *  *  ★ 

NsPEC  -  MMOLS,  the  number  (10)  of  species  in  the  molecular  trans- 
m  i  ttance  model . 

OUTPUT  VARIABLES 
Argument  List 

For  N=1,MSPEC;  M=l,15  but  ‘-'=1  for  MBR  Module 

i A j ( N ,M )  -  T ransmi ttance  for  species-N.  (dimensionless) 

ABC(M ,M)  -  Optical  depth  for  species-N.  (dimensionless) 

TT8l(Mj  -  Molecular  transmi ttance  of  all  the  species  for  mode-M. 
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SECTION  7 


NATURAL  BACKGROUND  RADIATION  (NBR 1  MODULE 


7-1  INTRODUCTION 


The  NBR  Module  is  defined  to  be  a  complete  computer  program  which 
integrates  nine  ROSCOE-1R  models  into  a  consistent,  stand-alone  module  - 
similar  to  the  way  it  exists  in  the  ROSCOE-IR  Program  -  for  the  purpose  of 
developing  and  testing  the  capability  to  compute  the  natural  upwelling 
spectral  radiance  as  a  function  of  altitude.  Table  7-1  provides  a  guide  to 
the  nine  modules  so  integrated;  we  also  include  the  Dynamic  Storage  Allocation 
{ DS A )  System  [SP-78]  because  it  plays  such  an  important  role  and  it  is  an 
entity  integrated  into  the  NBR  Module. 


Table  7-1.  Guide  to  modules  integrated  into  the  NBR  Module. 


Title 


Ambient  Atmosphere 
Atmospheric  Aerosols 
Natural  Clouds 

Atmospheric  Thermal  Emission 
Molecular  Transmittance 
Earth  Surface  Characterization 
Earth  Surface  Radiance 
Upwelling  Natural  Radiation 
Solar  Radiation 
DSA  System 


Model 

ROSCOE  Manual 

Number 

Developer 

Volume  Number 

la 

SA1/LJ 

Ka  -1,14c 

lc,  19-  lc 

VI 

25 

id,  19: la 

SA1  /PA 

24 

20  b 

GET 

?8 ,31 

24  d 

GET 

28,31 

23a 

SAI /LJ 

27,  Sect.  2,3 

23b 

SAI/LJ 

27,  Sect.  5 

23c 

SAI /LJ 

27,  Sect.  6 

23e 

SAI/LJ 

GRC3 

27,  Sect.  4 

aWe  have  used  a  G.E.  Tempo  version. 
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GENERAL  CODING  INFORMATION  FOR  NBR  MODULE 


7-2.1  Routines  in  NBR  Module 

Table  7-2a  lists  all  the  (non-DSA)  routines  used  in  the  NBR  Module. 
Those  routines  from  the  DSA  System  [SP-78]  we  have  used  in  the  NBR  Module  are 
listed  in  Table  7-2b.  In  Table  7-2a,  each  of  the  routines  is  annotated  by  a 
letter,  defined  in  the  footnotes,  which  identifies  either  the  module  or  a 
category  to  which  it  belongs. 

7-2.2  Calling  Structure  of  Routines 

The  essential  relationships  between  all  of  the  routines  in  the  NBR 
Module  are  shown  in  Figure  7-1;  however,  we  have  omitted  all  the  DSA  routines 
except  for  QIN1TL  which  we  include  as  a  reminder  that  the  DSA  system  is  there. 
Calls  to  the  left  of  the  heavy  vertical  line  are  those  required  for  inclusion 
of  the  statistical  cloud  submodel. 

In  addition  to  the  routine  names  in  Figure  7-1,  we  include  annota¬ 
tions  to  enhance  the  utility  of  the  diagram.  Near  the  top  of  the  figure,  a 
dashed  line  divides  the  initializing  calls  from  those  made  later  while  looping 
over  the  spectral  bands.  The  T  (for  TRUE)  besides  the  SUN-hexagon  means  the 
indicated  call  is  made  if  the  sun  is  present  (above  the  horizon).  Vectors  V, 
I5,  C,  and  §,  refer,  respectively,  to  positions  for  (a)  the  (fictitious)  view¬ 
ing  point  at  which  the  upwelling  radiance  is  being  calculated,  (b)  a  repre¬ 
sentative  point  on  the  Earth's  surface  toward  which  the  (fictitious)  detector 
at  Point  V  is  pointed,  (c)  the  intersection  of  the  detector's  1 ine-of-sight 
with  the  12-km  altitude  surface  (the  highest  altitude  of  cloud  tops),  and  (d) 
the  sun.  Vectors  such  as  PS  denote  paths  joining  the  indicated  points.  The 
indices  1,J,K,M,  and  L  are,  respectively,  those  for  altitudes,  nadir  angles, 
azimuth  angles,  broad-bands  (from  Dataset-BN),  and  band-intervals  within  a 
broad-band  (from  Dataset-BI).  On  the  second  and  third  pages  of  Figure  7-1, 
the  indices  I,J,K,  and  L  head  columns  of  entries  which  are  either  1  or  ^  ‘ • 
Each  row  of  such  entires  is  correlated  with  the  call  to  a  routine  (or  a  set  of 
routines)  on  the  same  line.  Such  entries  denote  the  values  of  the  indices  for 
which  the  call  is  made  to  achieve  maximum  economy. 
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Table  7-2a.  Routines  in  the  Natural  Background  Radiation  (NBR)  Module. 


Routi ne 

Comment* 

Routine 

Comment 

Routi ne 

Conment 

ACCUM 

T 

GEO  REA 

X 

SOLVE 

A 

AEROSOL 

P 

GEOTAN 

X 

SOLZEN 

A 

AGAGEO 

X 

GEOXYZ 

X 

SORTLJ 

C 

ATMOS U 

A,C ,T  ,E 

GLITTR 

E 

SPCMIN 

A 

ATMRAD 

T 

H20SVP 

A 

STEP 

T 

BESSO 

C 

IONOSU 

A 

STEPS 

T 

BK  CDATA 

C 

JULIAN 

A 

SUBVEC 

T.V 

CANGLE 

E 

LINEAR 

C,E 

S'JRPAD 

E 

CFLOSF 

C 

OZONE 

A 

TAIR 

C 

CLDBDR  a 

C 

PATH 

T 

TANGEG 

X 

CLDGEOM3 

c 

PLANCK 

T,E 

TEMPZH 

A 

CLDWT 

c 

RATCOF 

A 

TRANS 

T 

CLOUDO 

c 

REA  TAN 

X 

TRANSB 

T 

DOT 

T.V 

RHOEPS 

C 

TRANSF 

C 

DRVUPW 

u 

RINOUT 

E 

TRNSCO 

T 

EMISSF 

c 

SEGMENT 

T 

UNITV 

T,V 

ERF 

E 

SET  ALT 

U 

UPWELL 

U 

ESURF 

E 

SGEOM 

c 

VEIN 

T.V 

FITTER 

A 

SHELLS 

T 

WATER 

A 

FRAC 

T 

SOLCYC 

A 

WVOPJ 

A 

FRESNL 

E 

SOLORB 

A 

XMIT° 

T 

GCRCLE 

E 

SOLRAD 

S 

ZTTOUT 

A 

A  Routine  from  Ambient  Atmosphere  Module. 

C  Routine  from  Statistical  Submodel  of  Natural  Cloud  Module. 

E  Routine  from  Earth  Surface  Characterization  and  Radiance  Module. 

P  Routine  from  Atmospheric  Aerosols  Module. 

S  Routine  from  Solar  Radiation  Module. 

T  Routine  from  Atmospheric  Thermal  Emission  and  Molecular  Transmittance 
Modules . 

1)  Routine  from  Upwelling  Natural  Radiation  Module. 

V  Routine  for  relations  between  vectors. 

X  Routine  for  transformation  of  coordinates. 

a  A  dummy  routine  to  simulate  that  from  the  Deterministic  Submodel  of  the 
Natural  Cloud  Module  which,  though  loaded  to  satisfy  externals,  is  not 
otherwise  used. 

b  This  routine  is  a  FORTRAN-! anguage  version,  prepared  by  L.  Ewing,  of  the 
COMPASS-1 anguage  routine  used  in  the  GRC  DSA  System.  Here,  it  is  used 
independent  of  its  role  in  the  DSA  System. 

c  Employs  the  DSA  System. 
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Table  7 -2b. 

Routines  from 

the  DSA  System 

used  in 

the  M3R  Modul 

CREATEp,a 

ME XTp,b 

QCREAT 

QGCBLK 

QZBLOK 

CREATX 

NLOKDS 

QOS RED 

QGDBLK 

REMOVE 

DSPWRDP 

PUTAFT 

QDSRYT 

QGRBAG 

WIP0UTp 

DSTR0YP 

PUT80TP,C 

OERROR 

QGTZWD 

XMITP 

INDWRDP 

PUT0RDd 

QF1EI.D 

QIMITLP 

L0CKQSP 

QCEASt 

QFLDST 

QPTZWD 

^Primary  calls. 

aHas  entry  point  CREATLP. 

bHas  entry  points  PREVP  and  PRE VNLP . 

cHas  entry  point  PUTT0Pp. 

^Has  entry  point  PUT0RAp. 


7-2.3  Description  of  Routines:  Function  Performed,  Originator,  and  Loca¬ 
tions  of  Listing  and  Input-Output  Table 

In  Table  7-3a,  for  all  the  (non-DSA)  routines  in  the  H3R  Module  (as 
listed  in  Table  7-2a),  we  provide  a  short  description  of  the  routine's  func¬ 
tion.  We  also  identify  (a)  the  organization  (if  not  SA1 1  originating  the 
routine,  (b)  the  number  of  the  volume  in  the  ROSCOE  Manual  containing  a  list¬ 
ing  of  the  routine,  and  (c)  the  number  of  the  table  in  Volume  27  when  we  have 
summarized  the  inputs  and  outputs  for  the  routine. 

In  Table  7-3b,  we  provide  a  short  description  of  those  DBA  routines 
which  are  called  directly  from  the  NSR  Module. 


ORVUPW 


Figure  7—1.  Relationships  between  the  routines  in  the  Natural  Background  Radiation  Module. 


AH  Band-Interval  Wavenumbers  IL) 
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Table  7-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output  table. 


Routine 

ACCUM 

AEROSOL 

AGAGEO 

ATMOSU 

AT MR AD 

BESSO 

3 K DATA 
COAT  A 

CAMGLE 


Function  performed 

Integrates  (between  X=A  and  X  =  B)  a  function  F(X)  given  at  two 
points  XI  and  X2,  by  using  linear,  logarithmic,  or  power- law 
interpolation,  corresponding  to  specified  IT Y PE  =  1,2,3,  respec¬ 
tively;  uses  linear  interpolation  in  case  the  other  methods  would 
fail.  (GET  routine;  listing  in  Vol .  27.) 

Computes  attenuation  coefficients  for  scattering  and  absorption 
(and,  though  not  used  in  the  NBR  Module,  the  asyimetry  factor 
(average  cosine  of  the  scattering  angle))  due  to  atmospheric 
aerosols,  given  the  altitude  and  wavelength.  (VI  routine;  see 
Vol.  2b  for  original  routine  which  differs  slightly  from  ours  in 
Vol.  27.  Input-output  in  Table  5-4.) 

Provides  the  geographic  coordinates  (colatitude  and  east  longi¬ 
tude)  of  Point  2,  given  the  geographic  coordinates  of  Point  1, 
the  azimuth  and  Earth-central  angle  of  Point  2  with  respect  to 
Point  1,  and  the  height  of  Point  2.  (A  modified  MRC  HARC 
routine;  listing  in  Vol.  27.  Input-output  in  Table  6-3.) 

Computes  the  properties  of  the  undisturbed  atmosphere ,  giver  the 
altitude  (ZH),  after  the  associated  subroutines  compute  the  local 
apparent  time  (HI),  solar  flux  (SBAR) ,  and  day-or-night  parameter 
(I00RN).  (Listing  in  Vol.  I4a-1.) 

Computes  the  atmospheric  volume  emission  on  an  optical  path. 

(GET  routine;  listing  in  Vol.  27.  Input-output  in  Table  6-9.) 

Provides  the  zero-orcer  cylindrical  Bessel  function  per  Formulas 
9.4.1  and  9.4.3  in  AS-64  (Listing  in  Vol.  24.) 

Provides  (1)  for  14  cloud  types,  their  (a)  base  altitude,  (b) 
thickness,  (c)  water  droplet  radius,  < d)  water  droplet  density, 
and  ( e)  optical  scattering  properties  (extinction  and  scattering 
cross-sections  and  mean  cosine  of  scattering  angle!  at  lo  wave¬ 
lengths  in  the  2-  to  5- -m  range,  and  (?)  for  Regions  4  and  U  in 
the  NASA  cloud-data  base,  (a)  tne  statistical-cloud  index.  Id) 
occurrence  frequencies  of  cloud  types,  and  (c)  occurrence  fre¬ 
quencies  of  number  of  cloud  layers.  (Listing  in  Vol.  24.) 

Compotes  the  Earth-central  angle  ( CAMGLE )  between  the  two  central 
rays  to  Points  and  P2,  given  the  north  ’’atitudes  and  east 
longitudes  of  Points  PI  and  P2 .  (Listing  in  *ol .  2?.  Input- 
output  in  Table  e-o.) 


!  c o n t i nued ! 


Table  7 

CFLOSF 

CLDBDR 

CLDWT 

CLOUDO 

DOT 

DRVUP'W 

EM1SSF 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd). 


Computes  the  probability  of  a  cloud- free  1 ine-of-sight  (CFLOS)  as 
a  function  of  the  cloud  coverage  (expressed  in  tenths)  and  zenith 
angle  of  the  LOS  from  tie  ground.  (Listing  in  Vol.  24.) 

Provides  the  bidirectional  reflectance  ll/sr)  of  a  plane,  semi¬ 
infinite  stratoccmulcus  (KC10UD=4)  cloud  for  a  photon  of  wave¬ 
length  ALAM  incident  at  zenith  angle  THIN  -  ACOS(CTHIN)  and  re¬ 
flected  at  zenith  angle  THOUT  -  ACOS(CTHOUT)  and  azimuth  angle 
PHIOUT  -  ACOSfCPHIOUT ) .  (Listing  in  Vol.  24.)  Known  as  ALBEDC 
in  ROSCOE-IR . 

Computes  (for  ?.  given  source  ana  detector  location)  three  arrays 
(TRANS,  EMISS,  and  WT),  each  with  IDX  members  (normally  160). 

The  TRANS  and  EMISS  arrays  are,  respectively,  (1)  the  distribu¬ 
tion  of  i rradiance-to-radiance  transfer  coefficients  (l./sr)  at 
the  12-km  altitude  transfer  point  for  clouds  and  (2)  the  distri¬ 
bution  of  (attenuated)  spectral  cloud-emission  radiances  at  12-km 
altitude  and  directed  toward  the  detector.  The  WT  array  is  the 
set  of  weights  associated  with  the  set  of  statistical  cloud  con¬ 
figurations,  influenced  by  cloud-coverage  fractions  and  cloud- 
free  1 ine-of-sights  from  the  detector.  (Listing  in  Vol.  24.) 

Reads  (a)  a  fl  ag  (MODE)  indicating  by  a  value  of  u  or  1  whether 
the  deterministic-  or  statistical-cloud  submodel  is  desired,  (b) 
cloud  data  appropriate  to  the  indicated  submodel  and  makes  them 
available  to  the  appropriate  routines.  For  MODE-1,  the  routine 
reads  an  index  KMODEL  which  selects  data  from  that  in  the  code  or 
allows  the  user  to  input  his  own  data.  Other  flags  are  read 
which  allow  selected  portions  of  the  provided  data  to  be  over¬ 
ridden.  These  user-provided  data  are  output  through  CLDFRQ  and 
CONFIG  Commons  and  override  data  in  BLOCK  DATA  CDAT4.  (Listing 
i n  Vol .  24. ) 

Computes  the  dot  product  of  two  vectors.  (GET,  GRC  routine; 

1 i sting  in  Vol .  27. ) 

Drives,  and  provides  a  means  for  testing,  the  NBR  Module,  by 
accepting  the  necessary  input  data  for  each  of  the  modules  (see 
Table  7-1)  integrated  into  the  NBR  Module  and  printing  selected 
results.  (Listing  in  Vol.  27.) 

Computes  the  (attenuated)  spectral  radiance  at  12-km  altitude 
for  radiation  emitted  (at  a  specified  zenith  angle)  from,  a  cloud 
top  at  a  specified  altitude.  (Listing  in  Vol.  24.) 


l rcnti  nued : 


Table 

ERF 

ESURF 

FITTER 

FRAC 

FRESNL 

GCRCIE 

GEOREA 

GEOTAN 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd) . 


Evaluates  the  error  function,  based  on  the  rational-approximation 
Formula  7. 1.2. 6  in  AS-64.  (Listing  in  Vol.  27.) 

Provides  the  bidirectional  reflectance-distribution  function 
(BRDF),  directional  emissivity,  and  temperature  of  the  Earth's 
surface  at  the  intersection  point  of  the  optical  1 ine-of- sight 
with  one  of  the  seven  allowed  categories  of  surface  materials. 

(The  surface  temperature  is  approximated  by  using  the  atmospheric- 
model  temperature.)  (Listing  in  Vol.  27.  Input-output  in  Table 
2-12.) 

Computes,  by  the  method  of  least  squares,  the  coefficients  Z(J) 
(J=1,N)  in  a  polynomial  of  degree  N  representing  the  dependent 
variable  Y ( I )  (or,  optionally,  its  natural  logarithm)  specified 
(and  given  equal  weights)  at  NPTS  values  of  the  independent  vari- 
ableX(I).  (Listing  inVul.  14a- 1 . ) 

Computes  the  fraction  of  interval  (A,B)  either  contained  in  in¬ 
terval  (X,Y)  if  (A,B)  ( X ,  Y )  or  covered  by  interval  (X,Y)  if 

(A,B)  >  (X, Y ) .  (GET  routine;  listing  in  Vol.  27.) 

Evaluates  the  Fresnel  (specular)  monochromatic  reflectance  of  a 
smooth  water  surface  ( characteri zed  by  a  complex  index  of  refrac¬ 
tion),  given  the  wavelength  (in  the  2-  to  5-ym  range)  and  angle 
of  incidence.  (Listing  in  Vol.  27,  Input-output  in  Table  3-4.) 

Computes,  for  three  Points  PI,  P2  and  P3  on  a  great  circle,  the 
latitude  and  longitude  of  the  intermediate  point  P2,  given  the 
latitudes  and  longitudes  of  the  end  points  PI  and  P3,  the  central 
angle  ALP13  between  the  central  rays  to  PI  and  P3,  and  the  cen¬ 
tral  angle  ALP12  between  the  central  rays  to  PI  and  P2.  (Listing 
in  Vol.  27.  Input-output  in  Table  3-5.) 

Provides  the  slant  range,  elevation  angle,  and  azimuth  angle  of 
Point  2  with  respect  to  Point  1,  given  the  geographic  coordinates 
(altitude,  colatitude,  and  east  longitude)  of  the  two  points.  (A 
modified  MRC  HARC  routine;  listing  in  Vol.  27.  Input-output  in 
Table  6-4. ) 

Provides  the  tangent-plane  coordinates  of  Point  2  with  respect  to 
Point  1,  given  the  geographic  coordinates  (altitude,  colatitude, 
east  longitude)  of  the  two  points,  (a  modified  MRC  HARC  '‘outine 
called  GEOXYZ;  listing  in  Vol.  27.  Input-output  in  Table  6-5.) 


lbS 


t conti nued) 


Tab!  e 

geoxyz 

GLITTR 

H20SVP 

IGNOSU 

JUL I  AM 

LINEAR 

OZONE 

PATH 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd). 


Converts  the  geographic  coordinates  (altitude,  north  latitude, 
east  longitude)  of  a  point  to  Earth-centered  Cartesian  coordi¬ 
nates.  (Listing  in  Vol .  27.  Input-output  in  Table  5-3.) 

Provides,  upon  being  called  from  Subroutine  ESURF  when  the  line- 
of-sight  intersects  a  water  surface,  (la)  the  bidirectional  re¬ 
flectance-distribution  function  (BRDF)  and  (lb)  directional 
emissivity  of  the  water  surface  at  the  intersection  point  of  the 
optical  line-of- sight  from  the  detector  and  (2)  the  geographic 
coordinates  (north  latitude  and  east  longitude)  of  the  point  on  a 
smooth  horizontal  surface  for  a  specular  reflection  of  a  ray  from 
the  source  to  the  detector,  if  requested  (by  logical  parameter 
SPCULR=.TRl£ .  in  argjnent  list).  Only  the  directional  emissivity 
is  provided  if  there  is  no  source.  (Listing  in  Vol.  27.  Input- 
output  in  Table  3-2.) 

Computes  the  saturation  vapor  pressure  of  water  vapor  over  a 
plane  surface  of  (1)  water  for  the  temperature  range  from  173.15 
to  373.15  deg  K  (-100  to  +100  deg  Cl  and  (2)  ice  for  the  tempera¬ 
ture  range  from  173.15  to  273.15  deg  K  (-100  to  0  deg  C). 

(Listing  in  Vol .  14a- 1 . ) 

Provides  the  properties  of  the  ambient  ionosphere  required  by  all 
the  chemistry  modules.  (Listing  in  Vol.  lAa-1.) 

Converts  a  Gregorian  calendar  date  to  Julian  day  number  OAYJ  for 
Subroutine  SOLORi).  (Listing  in  Vol.  1 4  a  - 1 . ) 

Performs  a  linear  interpolation  to  find  FXO  at  a  given  XO,  given 
the  independent  variaole  array  XX(I)  and  the  corresponding  depen¬ 
dent  variable  array  FXXll).  FXO  is  set  to  zero  if  XO  is  not 
within  the  range  of  XX ( I ) .  An  efficient  search  is  used. 

(Li  sting  in  Vol .  24. ) 

Computes  the  latitude  and  season  dependence  of  ozone  for  alti¬ 
tudes  from  0-  to  55-km.  (For  hinder  altitudes,  sec-  Subroutine 
SPCM1N.)  (Listing  in  Vol.  14a-l.) 

Develops  the  cumulative  values  of  the  path  parameters  U(!,h,2) 
(species-N  areal  density)  and  'JP(I,N,2)  Iproduct  of  U  and  pres¬ 
sure  P)  for  temperature- index  I  and  species  N  at  end  of  line- 
segment  DSiJ+l),  expressed,  respectively,  in  cm  at  SIP  and^atm-cin 
at  STP  (if  Loschmidt's  number  is  expressed  in  molecules-cm  ->t 
STD).  Incremental  values  are  obtained  from  Subroutine  SEGMENT. 
(LET  routine;  listing  in  Vol.  27.  Input-output  in  Table  5-5.) 

(conti nuea ) 


Table  7-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  ( Cont' d!  . 


PLANCK  Computes  the  blackbody  spectra!  radiance.  (GET  routine;  listing 

in  Vol .  27.  Input-output  in  Table  5-6.) 

RATCOF  Provides  the  rate  coefficients  needed  for  the  E-  and  F-region 

ionosphere  model  used  in  RCSCOE-IS.  (Listing  in  Vol.  14a- 1.) 

REATAN  Provides  the  tangent-plane  coordinates  of  a  point  with  respect  to 

some  reference  location,  given  the  slant  range  elevation  angle, 
and  azimuth  angle  of  the  point  with  respect  to  une  same  reference 
location.  (A  modified  MRC  HARC  routine  called  REAXYZ;  listing  in 
Vol.  27.  Input-output  in  Table  6-6.) 

RHOEPS  Computes  the  hemispherical-directional  reflectance  from  the  (hori¬ 

zontal)  surface  of  cloud-type  4  { str atoctmiulous)  for  radiation  of 
',-avelength  i  reflected  into  zenith  angle  -.  (Listing  in  Vol.  2~.) 

RINOUT  Computes  -  when  given  the  geographic  location  (altitude,  north 

latitude,  east  longitude)  of  tne  sources  (sun  and/or  fireballs), 
the  detector,  and  the  position  ?  of  the  intersection  of  the  lme- 
of-sight  from  the  detector  to  the  Earth's  surface  -  the  zenith 
angles  and  slant  ranges  of  the  sources  from  P  and  the  direction 
of  tne  ray  from  P  toward  tne  detector  in  terns  of  the  zenith 
angle  of  the  detector  and  (if  the  surface  is  not  Lambertian 
( VAT = 1 )  or  water  (MAT =2)1  the  absolute  value  of  the  azimuth 
angle  of  scatter  with  respect  to  the  principal  plane  containing 
the  incoming  ray.  (Listing  in  Vol.  27.  Input-output  in  Table 
5-2.) 

SEGMENT  Computes  the  incremental  values  of  the  patn  parameters  JUlI.N) 

and  DUP(I,N),  for  temperature- i ndex  1  and  species  h,  for  the  line- 
segment  DS ,  based  on  a  linear  variation  of  the  properties  in  Da. 
Units  are,  respectively,  cm  at  STP  and  atm-cm  a^  5TP  (if 
Loschmidt's  number  is  e>pressed  in  molecules,  cm  at  STP).  Cumula¬ 
tive  values  are  formed  in  Subroutine  PATH.  ibET  routine:  listing 
in  Vol.  27.  Input-output  in  "able  5-7.) 

SETALT  Determines  the  altitudes  at  wnich  Subroutine  uPwELL  computes  the 

upwelling  natural  radiation.  A  set  of  enanacteri sti :  altitudes 
has  been  previously  selected  for  each  of  the  id  spectfal  bins 
spanning  the  2-  to  5-„ro  range.  If  tne  wavelength-band  of 
interest  (ALMIN,  AlMAX )  spans  more  than  one  bin,  a  set  of  alti¬ 
tudes  is  obtained  by  combining  those  fur  each  of  the  spanned 
bins.  (Listing  in  Vol.  27.  Input-output  in  Table  7-7. j 


i  Conti  sued 
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SGEJM 

SHELLS 

SOLCYC 

SOLORB 

SOL RAD 

SOLVE 

SOL  ZEN 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  ( Cont‘ d) . 


Computes  the  geometrical  relations  between  a  rource ,  (statis¬ 
tical)  cloud  layer,  and  detector.  (Listing  in  Vol.  24.) 

Prepares  arrays  of  physical  properties  at  spherical-shell  bound¬ 
aries  used  in  calculating  molecular  transmittance  through  the 
ambient  atmosphere.  Properties  at  each  shel 1 -boundary  are  alti¬ 
tude,  temperature,  pressure ,  and  number  densities  of  species 
(CH^,  CO,  CO,,,  H^O,  NC’  >  *^2’  and  ^  *  *r°r  1n^or' 

mation,  the  water  content  of  the  atmosphere  above  each  shell 
boundary  is  also  computed,  expressed  ’n  units  of  precipitable 
centimeters.  (Modified  GET  routine;  listing  in  Vol.  27.  Input- 
output  in  Table  7-9. ) 

Computes  the  solar  flux  (SEAR),  an  input  to  ATMOSU  through  ATMOUP 
Cornnon,  based  on  an  assiwed  sinusoidal  11 -year  (or  4018-day) 
variation,  with  the  maximun  value  of  250  for  S8AS  associated 
with  the  CIRA-65  Model  9)  occurring  on  1  June  195'.,  1  June  1969, 

1  June  1980,  etc.  and  with  the  minimum  value  of  o5  for  SEAS  (asso¬ 
ciated  with  the  CIRA-65  Model  1)  occurring  on  1  December  1963,  1 
December  1974,  1  December  1985,  etc.  (Listing  in  Vol.  14a-l.) 

Confutes  the  north  latitude  ( SOL L AT )  and  east  longitude  (SOLI. ON) 

Oi  one  apparent  (actual  motion)  subsolar  point,  given  tne  Julian 
day  number  at  0  hours  UT  on  1  January  of  the  year  of  interest 
( YRFJ ) ,  the  Julian  date  at  which  vernal  equinox  occurs  (VEQJ), 
the  Julian  day  number  at  0  hours  on  the  day  of  interest  (DAVJ), 
and  the  universal  time  (JT).  (Listing  in  Vol.  14a-l.) 

Provides  the  solar  spectral  irradiance  at  the  top  of  the  Earth's 
atmosphere,  in  the  spectral  range  from  2-  to  5- urn  (or  5000-  to 
2000-wavenambers) .  The  NASA  data  adopted  by  the  A5TM  have  been 
fitted  by  piecewi se-conti nuous  power-law  expressions.  (Listing 
in  Vol.  27.  Input-output  in  Table  4-2.) 

Solves  a  set  of  N  simultaneous  linear  algebraic  equations  by 
using  the  Gauss-Jordan  method  with  maximt/n  pivot  feature. 

(Li  sting  in  Vol  1 4a- 1 . ) 

Computes  (1)  the  cosine  of  tne  zenith  angle  of  the  sun  at  a  Point 
P  (COSCHI),  given  the  geographic  north  latitude  (PLAT)  and  east 
longitude  t PLOW )  of  the  Point  P  and  tne  north  latitude  (SOlLAT) 
and  Cast  longitude  ( SOL  LON )  of  the  subsolar  point,  (2)  the  day-or- 
night  parameter  ( I  DORN ) ,  which  is  1  if  COSCHI  >_  0.0  and  0  other¬ 
wise,  and  (3)  the  local  apparent  time  (HL),  from  the  Greenwich 
apparent  time  (GAT)  and  the  longitude  PLON.  (Listinq  in  Vol. 
14a-l.) 
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SPCMIN 

STEP 

STEPS 

SUBVEC 

SURRAD 
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Sorts  an  array  A  of  length  N  from  low  to  high  (if  LOHI  £0)  or 
from  high  to  low  (if  LOHI  >  0).  Two  additional  arrays  are  simply 
carried  along  in  the  sorting  process.  (Listing  in  Vol.  24  is 
adequate  for  use  with  Clouds  Module  but  listing  in  Vol.  27  must 
be  used  for  NBR  Module.) 

Provides  analytic-fit  profiles  at  all  altitudes  of  the  minor 
species  (N,  NO,  NO^,  0,,  0-(a  ),  and  H-O!  not  provided  by  Sub¬ 
routine  ATMOSU  but  needed  by  the  chemistry  modules,  by  using 
tabular  data-base  species-densities.  Eor  R0SG0E.-IR,  also  pro¬ 
vides  for  CO,  N?0,  CH.,  H,  OH,  H0?,  N(  D),.N(£P),  and  O^D),  as 
well  as  rev i sed  prof iles  of  0,,  H^O,  N,  N(  s),  and  NO.  (Listing 
in  Vol .  14a-l . ) 

Calculavus  the  intersections  of  an  optical  path  with  the  bound¬ 
aries  of  the  atmospheric  shells  determined  in  Subroutine  SHELLS. 
Path  elements  less  than  10  meters  in  length  are  assigned  to  the 
neighboring  shell.  The  output  includes  (a)  the  number  of  path 
segments  (plus  one)  on  the  transmission  path,  (b)  the  length  of 
the  path  segment  along  the  transmission  path,  (c)  the  weight 
associated  with  the  Ith  end  point  appropriate  for  finding  at  that 
point  the  linearly-interpolated  value  of  the  parameter,  and  (d) 
the  index  of  the  shell  boundary  at  or  just  before  the  start  of 
the  line  segment-  (GET  routine;  listing  in  Vol.  27.  Input- 
output  in  Table  5-8. ) 

Serves  effectively  as  an  entry  to  Subroutine  STEP,  given  the 
optical  path  defined  by  its  end  point  vectors  RX(I)  and  RY ( I ) . 

(GET  routine;  listing  in  Vol.  27.  Input-output  in  Table  5-9.) 

Returns  the  difference  between  vectors  VX  and  VY,  i.e.,  DVXY 
(1-3)  =  VX < 1 -3 )  -  VY(l-3).  (GET  routine,  equivalent  to  GRC 
routine  with  same  name  and  argument  list;  listing  in  Vol,  27.) 

Provides  (essentially)  the  upwelling  radiance  directed  toward  the 
detector  at  the  point  where  the  optical  1 ine-of- sight  intersects 
the  Earth's  surface.  This  version  of  SURRAD  provides  two  com¬ 
ponent;  of  the  radiance:  (1)  thermally  emitted  a-  i  (2)  source 
(sun  or  fireball)  reflected.  Reflected  sky  radiance  is  not  in¬ 
cluded.  Strictly,  the  source- reflected  component  is  actually 
provided  in  an  unattenuated  form  together  with  the  Dath  param¬ 
eters  (species  areal  density  U  and  UP,  with  P  the  pressure), 
integrated  along  the  incoming  path  from  the  source,  required  as 
input  to  a  computation  of  the  molecular  absorption  over  a  total 

(conti nued) 
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Table 


TAIR 


TANGE  0 


TEMPZH 


TRANS 


TRAN  SB 


-3a.  Description  of  routines  in  .  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
tab!  e  ( Cont' d)  . 


path.  The  aerosol  transmittance  along  the  incoming  path  from  the 
source  is  also  provided.  The  statistical  cloud  submodel  is  also 
included;  see  Subroutine  UPWELL  for  comments.  Note  that  the 
input  parameters  for  Point  C  in  P0S1TN  Common  and  1KM  in  UPWELS 
Cornnon  facilitate  providing,  as  additional  outputs  for  the  path 
from  the  sun  to  Point  C  at  12-km  altitude,  the  patn  parameters 
UCS  and  UPCS  and  the  aerosol  transmittance  TASC(LUP).  (listing 
in  Vol.  27.  Input-output  in  Table  5-1.) 

Provides,  for  use  within  the  statistical-cloud  submodel,  the 
molecular  Transmittance  for  radiation  of  wavelength  ALAM  from 
altitude  ALT  to  12  km  along  a  path  at  zenith  angle  THETA,  by 
i nterpol ati ng  results  from  using  the  AFGL  L0WTRAN-I1I  code  with 
the  1962  U.S.  Standard  Atmosphere.  (Listing  in  Vol.  24.) 

Provides  the  geographic  coordinates  of  a  Point  2,  given  the  geo¬ 
graphic  coordinates  of  Point  1  and  the  tangent-plane  coordinates 
of  Point  2  with  respect  to  Point  1  (called  Subroutine  XYZGEO  in 
ROSCOE-Radar) ,  (A  modified  MRC  HARC  routine  called  XYZGEO ; 
listing  in  Vol.  27.  Input-output  in  Table  6-7.) 

Determines  the  temperature  profile  (tabular,  0(4)120  km)  by  inter¬ 
polating  the  data  base  (U.S.  Standard,  1966)  for  latitude  and 
season,  to  be  used  as  input  to  the  major  atmospheric  species 
model  for  the  low-altitude  range  from  0-  to  120-km  altitude. 

(Li sti ng  in  Vol .  14a-l . ) 

Provides  the  molecular  transmittance  and  optical  depth  for  each 
of  the  ten  species  and  the  total  molecular  transmittance  in  a 
specified  wavenumber  interval,  given  the  parameters  U  (cm  at  $TP) 
and  UP  (atm-cm  at  STP)  for  the  total  transmission  path.  (GET 
routine;  listing  in  Vol.  27.  Input-output  in  Table  b-10.) 

Processes  the  5-cm’1  resolution  band-model  parameters  file  so  as 
to  (1)  eliminate  the  data  for  the  unwanted  spectral  regions  and 
(2)  derive  new  parameters  with  modified  resolution  in  accordance 
with  the  user-setting  of  the  logical  variable  TRNSOPT .  The 
method  for  TRNSOPT  set  to  .TRUE.,  for  faster  but  less  accurate 
calculations,  provides  in-band  averaged  band-model  parameters. 

The  method  for  TRANSOPT  set  to  .FALSE.,  tor  slower  but  more 
accurate  calculations,  provides  band-model  parameters  at  a  finer 
resolution,  actually  0.5  of  the  narrowest  user  wavenumber  band- 
interval,  but  witnin  the  range  of  5  to  50  cm’1.  The  two  band- 
model  parameters  are  (a)  S(I,1S),  the  mean  absorption  coefficient 

(conti nued) 
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Tabl  e 


TRANSF 


TRNSCO 


UNITY 


UPWELL 


-3a.  Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
tabl°  (Cont'd). 


for  species-IS  at  temperature-i  ndex-1  for  the  interval  DW,  cm 
at  STP,  and  (b)  DE(I,IS),  the  inverse  of  mean_J ine-spaci  ng  param¬ 
eter,  or  the  effective  line  density,  lines/cm  .  (GET  routine; 
listing  in  Vol .  27.  Input-output  in  Table  7-8.) 

Computes  a  quantity  defined  in  the  natural  statistical-cloud 
submodel  as  the  irradiance- to- radiance  transfer  coefficient 
(1/sr)  or  simply  the  transfer  coefficient  at  the  intersection  of 
the  detector  LOS  vector  with  12-km  altitude  (known  as  the  trans¬ 
fer  point).  The  transfer  coefficient  is  actually  the  ratio  of  a 
radiance  and  an  irradiance.  The  radiance  is  that  directed  anti¬ 
parallel  to  the  detector  LOS  vector  and  the  irradiance  is  the 
( unattenuated)  source  irradiance  at  the  transfer  point.  For  a 
source  above  12-km  altitude  and  far  from  the  transfer  point  (as 
for  the  sun),  the  transfer  coefficient  becomes  essentially  the 
bidirectional  reflectance  of  the  cloudtop  times  the  cosine  of  the 
zenith  angle  of  the  incident  ray.  For  a  source  below  or  within 
the  clouds  (conditions  not  allowed  in  NBR  Module),  the  transfer 
coefficient  depends  on  the  details  of  the  diffusion  solution  to 
the  transport  of  radiation  through  the  clouds.  (Listing  in  Vol. 
24.) 

Provides,  for  RADSW=.TRUE.  as  in  the  NBR  Module,  a  call  to  Sub¬ 
routine  ATM RAD  to  evaluate  Words-5,  -7,  and  -8  of  Dataset-BI  ( i n- 
band- ’nterval  radiance,  product  of  molecular  and  aerosol  trans¬ 
mittance,  and  aerosol  transmittance).  (GET  routine;  listing  in 
Vol.  27.  Input-output  in  Table  6-8.) 

Returns  the  unit  vector  VXHATtl-3)  along  the  vector  VX(l-3). 

(GET  routine,  equivalent  to  GRC  routine  with  same  name  and  argu¬ 
ment  list;  listing  in  Vol.  27.) 

Computes  -  for  a  Point  V  at  each  of  a  set  of  NALTJ  altitudes 
above  a  given  geographic  position,  specified  in  UPWELS  Cornion 
(UPWALT,  UPWLON,  UPWLAT)  and  characterized  by  material  MS'!  and 
property  DD(MSM)  -  the  natural  upwelling  spectral  radiance 
directed  towards  Point  V  from  Points  P  located  on  the  Earth's 
surface  with  respect  to  Point  V  at  NNAD1R  representative  nadir 
angles  and  NAZI  representative  azimuth  angles.  This  upwelling 
radiance,  UPRAD ( I ,J ,K,L ) ,  includes  contributions  from  (1)  air 
emission  hetween  Points  V  and  P,  (2)  surface  emission  at  Point  P, 
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Description  of  routines  in  NBR  Module:  function  performed, 
originator,  and  locations  of  listing  and  input-output 
table  (Cont'd) . 


VL1N 

WATER 

WVOPT 

XM  IT 

ZTTOUT 


and  (3)  the  solar- re flee  ted  radiation  at  each  of  the  Points  P. 
Values  of  the  radiance  UPRAD( I  ,J ,K ,L)  are  averaged  over  azimuth 
angles  to  give  UPRADA( l ,J ,L)  and  over  nadir  angles  to  give 
UPRAQN(I  ,L,JBAND) .  For  inclusion  of  natural  (statistical) 
clouds,  distribution  functions  of  the  radiance  are  obtained 
instead  of  the  single  values  in  the  absence  of  clouds.  Selected 
percentiles  (10,  25,  50,  90,  100)  of  the  corresponding  integral 
distributions  are  output. 

Note  that  for  the  GRC  version  of  the  NBR  Module  integrated  into 
R0SC0E-IR,  the  array  l!PRADN(  I.L.JBAND)  (for  altitudes  >  12  km  and 
if  clouds  are  included)  is  reset  as  uPRADNd  ,L,JBAND)  =  R05ON 
(IKM,L)  +  ARCVN(IKM,L) ,  which  is  transferred  through  UPWELS 
Common  to  (the  GRC)  Subroutine  UPWELT.  Thus,  in  the  GRC  version, 
for  altitudes  ZKM  >,  12 -km,  UPRADN  is  not  the  cloud- free  result 
but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem).  (Listing  in 
Vol .  27.  Input-output  in  Table  6-2.) 

Returns  the  linear  combination  of  two  vectors,  X ( 1 -3 )  =  A*Y ( 1 -3 ) 

+  B*2 ( 1 -3 ) .  (GET  routine,  corresponds  to  GRC  routine  VECLIN  with 
transposed  arguments;  listing  in  Vol. 27.) 

Computes  the  longitude,  latitude,  and  season  dependence  of  water 
vapor  for  altitudes  from  0-  to  45-km.  (For  higher  altitudes,  see 
Subroutine  SPCMIN.)  (Listing  in  Vol.  14a-l.) 

Allows  the  user  to  bypass  the  normal  treatment  (achieved  by  set¬ 
ting  WVFLAG  =  0.0)  of  water  vapor  in  Subroutine  SPCMIN  for  the 
altitude  range  from  0  to  120  km.  The  user  effects  the  bypass  by 
reading  in  WVFLAG  .GT.  0.0  and  his  own  data  in  one  of  four 
optional  forms  according  to  METHOD  =  1,  2,  3,  4.  (Listing  in 
Vol.  14a-l . ) 

Returns  an  array  Y  copied  from  a  given  array  X  of  length  LX  if  LX 
>  0  and  sets  Y  (of  length  ILXI!  to  a  constant  X(l)  if  LX  <0.  (A 
COMPASS-1 anguage  version  of  the  routine  is  used  with  the  GRC  DSA 
system,  though  no  listing  of  it  is  included  in  5P-78.  We  have 
used  a  FORTRAN  version  of  the  routine  prepared  by  L.  Ewing  of 
G.E.  Tempo.  Listing  in  Vol.  27.) 

Converts  a  Gregorian  calendar  date  (expressed  as  20th  century 
year  (1YRS),  month  (MONS),  and  day  ( 1  DAYS 3 )  and  zone  time  (ZT)  at 
east  longitude  PLON  to  the  Gregorian  calendar  date  and  mean  time 
(UT)  at  Greenwich,  (Listing  in  Vol.  14a-l.) 
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Table  7 -3b .  Description  of  Dynamic  Storage  Allocation  routines 
called  directly  from  the  NBR  Module. 


Routine 

CREATE 

CREATL 

DSPWRD 

DSTROY 

INDWRD 

LOCKDS 

NEXT 

PREV 

PREVNL 

PUTBOT 

PUTORA 

PUTTOP 

QIN1TL 

WIPOUT 


Function  Performed 


Creates  a  dataset  of  (at  least)  n+1  words  and  returns  the  dataset 
index  (the  pointer  to  the  first  (not  zeroth)  word  of  the  dataset). 

Performs  the  same  as  in  Subroutine  CREATE,  except  that  the 
dataset  lock  value  and  lock  count  are  set  to  1  (locked). 

Returns  the  pointer  to  the  DSP  word  for  the  dataset  specified  by 
its  index. 

Returns  to  the  system  the  space  occupied  by  the  dataset  specified 
by  i  ts  i  ndex . 

Returns  the  index  for  the  dataset  specified  by  the  pointer  to  its 
DSP  word. 

Sets  the  specified  lock  number  of  the  dataset  specified  by  its 
i  ndex . 

Returns  the  link  word  and  index  for  a  dataset  (in  forward  order) 
on  a  list,  given  initially  the  pointer  to  the  list  header  and 
subsequently  the  previously-returned  link  word. 

Returns  the  link  word  and  index  for  a  dataset  (in  backward  order) 
on  a  list,  given  initially  the  pointer  to  the  list  header  and 
subsequently  the  previously-returned  link  word. 

Performs  the  same  as  Subroutine  PREV,  except  that  lock  values  are 
not  set  and  reset. 

Places  the  dataset  specified  by  its  index  as  the  bottom  dataset 
on  a  list  specified  by  its  list-header  pointer. 

Inserts  a  dataset  (specified  by  its  index)  into  a  list  of  data¬ 
sets  (specified  by  its  list-header  pointer)  according  to  the 
ascending  order  of  the  specified  nth  words  (with  real  values)  of 
the  datasets. 

Places  the  dataset  specified  by  its  index  as  the  top  dataset  on  a 
list  specified  by  its  list-header  pointer. 

Initializes  the  routines  in  the  DSA  System. 

Removes  all  the  datasets  from  the  list  specified  by  its  list- 
header  pointer  and,  if  the  parameter  kdstry=l,  also  destroys  the 
datasets. 
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7-2.4 


Routines,  Conricn  Blocks,  and  Common-Block  Variables 


7-2.4. 1  Routines  and  Common  Blocks 

In  Table  7-4  we  provide  a  matrix  which  shows  the  appearance  of  common 
blocks  in  the  routines  in  the  NBR  Module. 

7-2. 4. 2  Definitions  of  Common-Block  Variables 

In  this  section  we  either  define  the  variables  in  a  common  block  or 
give  a  reference  where  the  definitions  can  be  found.  We  also  comment  on  the 
use  of  the  conrion  block  and/or  of  its  variables. 

Blank  COMMON 

Blank  COITION  is  used  only  for  the  DSA  System.  For  definitions  of 
variables,  see  SP-78. 

Common  /AEROK/  KVIS,  KPTYPE 

The  variables  KVIS  and  KPTYPE  are  read  in  Program  DRV'JPW  and  trans¬ 
ferred  throuqh  /AEROK/  to  Subroutine  AEROSOL. 

5 

KVIS  -  Visibility  range  parameter  (VR)  for  0  1  !!CM  1  9  x  10  cm 
=1,  VR  =  50  km 

=2 ,  VR  =  23  km 

=3,  VR  -  10  km 

=4,  VR  =  5  km 

=5,  VR  =  2  km 

s 

KPTYPE  -  Terrain  parameter  for  0  <  HCM  2  x  1U  cm 
=1,  Terrain  is  rural 
=2,  Terrain  is  urban 
=3,  Terrain  is  maritime 

Common  /AIRSQL /  TASP(lO),  TASC(IO),  TAFP(lU) 

The  arrays  TASP  and  TASC  are  set  in  Subroutine  SURRAD  and  transferred 
through  /AIR SOL /  to  Subroutine  UPWELL.  (The  array  TAFP  was  never  intended  for 


Table  7-4.  Matrix  of  routines 


and  common  blocks 


use  with  the  NBR  Module  but  was  provided  should  Subroutine  SURRAD  be  used  as  a 
utility  routine;  this  use  has  not  evolved  in  ROSCOt-IR.) 

For  LUP=1,NWAVE(JBAMD) 

TASP(LUP),  -  Aerosol  transmittance  for  incoming  solar  rays  to  Points  P 
TASC(LUP)  on  Earth's  surface  and  Point  C  at  12 -km  altitude  on  the 

VP-path.  (Dimensionless;  depends  only  on  wavelength  and 
assumed  single  paths.) 

For  L=1,IFIRE$  (not  in  NBR  Module) 

TAFP(l)  -  Aerosol  transmittance  for  incoming  ray  from  Fireball-L 
to  Point  P  on  Earth's  surface.  (Not  used  in  RQSCOE-IR.) 


Common  /ALTODN/ 

Variables  in  /ALTODN/,  defined  in  Subroutines  ATMOSU  and  SPCMIN  in 
Vol .  14a-l,  are  of  no  direct  interest  for  the  NBR  Module  per  se. 


Common  /ATMOUP/  HL,  SBAR ,  IOGRN,  PP,  RHO,  TT,  SN1(30),  HR HO ,  FEHSEQ 

HL  -  Local  apparent  time  (set  by  Subroutine  SOLZEN). 
(decimal  hours) 


SBAR 

I  DORN 

PP 

RHO 

TT 

SMI  (I) 

HRHO 

FEHSEQ 


Average  10.2-cm  solar  flux  (set  by  Subroutine  SOLCYC). 
[1.0E -22 /(nr  Hz)] 

Diurnal  parameter  (set  by  Subroutine  SOLZEN). 

=1,  for  daytime 
=-l,  for  nighttime 

2 

Pressure  (set  by  Subroutine  ATMOSU).  (dyne/cm  ) 

Mass  density  (set  by  Subroutine  ATMOSU).  (g/cm^) 

Temperature  (set  by  Subroutine  ATMOSU).  (deg  K) 

Species-I  density.  (1/cm^).  The  full  array  is  defined 
in  Subroutine  ATMCSU.  See  Table  7-9  for  those  species 
used  in  computing  the  molecular  transmittance. 

Density  scale  height  (set  by  Subroutine  ATMOSU).  (km) 

Fractional  error  in  hydrostatic  equilibrium  (set  by 
Subroutine  ATMOSU). 


Common  /CDDATA/ 


The  variables  in  /CDDATA/  are  defined  on  p.  74  of  Volume  24. 


196 


Coomon  /CLDFREQ/ 

The  variables  in  /CLDFREQ/  are  defined  on  pp.  74,  75  of  Volume  24. 
Common  /CLDWT/ 

The  variables  in  /CLDWT/  are  defined  on  p.  76  of  Volume  24. 


Common  /CLOUD/ 

The  variables  in  /CLOUD/  are  defined  on  pp.  76,  77  of  Volume  24. 
However,  they  are  used  only  in  the  deterministic  cloud  submodel  and  hence  are 
not  used  in  the  NBR  Module. 


Common  /CONFIG/ 

The  variables  in  /CONFIG/  are  defined  on  p.  77  of  Volume  24. 

Conmon  /DIFFUS/ 

The  variables  in  /DIFFUS/  are  defined  on  p.  78  of  Volume  24;  however, 
they  are  not  used  in  the  NBR  Module. 

Common  /FIR3AL/  FBLAT(IO),  FBLON(IO),  FBALT(IO),  F3RINT(10) 

/FIRBAL/  appears  in  two  routines  (RINOUT  and  SURRAO)  even  though  the 
NBF  Module  does  riot  use  any  of  its  variables.  The  reason  for  the  appearance 
of  /FIRBAL/  is  that  Subroutine  SURRAD  was  created  with  a  dual  purpose  in  mind: 

(1)  As  an  integral  part  of  the  NBR  Module,  to  be  called  from  Sub¬ 
routine  UP* ELL  ,t i t.h  only  the  sun  as  a  source. 

(2)  As  a  utility  routine,  to  be  called  by  routiner  (other  than 
UPHELD  needing  the  surface  radiance  (thermally  emitted  and 
source  (sun  or  fireball)  reflected).  For  such  use,  /FIRBAL/  was 
’  ncl  uoed . 

However,  Subroutine  SURRAD  is  not  used  as  a  utility  routine  in  ROSCOE-1R. 

FBALT(L),  -  Altitude,  north  latitude,  and  east  longitude  of 
FBLAT(L),  Fireball-L.  (km,  radians,  radians) 

FBLON(L) 

FBRINT(L)  -  Radiant  intensity  of  Fireball-L.  (W/sec) 
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Common  /FLAGS/  ITFLAG 

In  order  that  Subroutine  TRANSC  in  the  Natural  Cloud  Module,  called 
by  Subroutine  ClDWT,  will  know  whether  or  not  the  sun  is  above  or  below  the 
horizon,  we  require  Subroutine  UPRELL  to  set  ITFlAG  in  /FLAGS'  before  cal  lino 
Subroutine  CLOWT . 

ITFLAG  -  Fiag  indicating  the  diurnal  condition  at  Point  V ‘ . 

=0,  Sun  is  below  the  horizon 
=1,  Sun  is  above  the  horizon 

Common  /ICNQ’JP/ 

The  variables  in  /1DNDUP/  are  defined  on  Dp,  133,  134  of  Volume 
14a-l;  however,  they  are  not  used  in  the  N3R  Module. 

Common  /DPT  ION  /  TRNSOPT 

See  TRNS-DPT  in  Table  7-8  for  Subroutine  TTANS3,  FAST  in  Table  6-10 
for  Subroutine  TRANS,  and  TRNS0PT  in  Table  t)-2  for  Subroutine  JPwELL. 


Common  /DPT INI/  RADS* 

See  RAQSV  in  Table  6-2  for  Subroutine  'JPw'lLL  and  Table  6-3  for  Sub¬ 
routine  TRNSCQ. 


Common  /PAR AMS/ 

!? ARAMS/  contains  constants  used  in  the  Natural  Cloud  Module.  They 
are  defined  on  p.  80  of  Volume  24  and  are  set  in  Program  DRVJPW. 


Common  /t-DSITV  PDSLAT ,  PJSLON,  PDSALT,  SPCLAT ,  SPCLON,  C12UT.  C12LDN .  C12ALT 

P0S.MT,  -  Altitude,  north  latitude,  and  east  longitude  of  Point  p 
PGSL4T,  at  which  1 ine-of-sight  l from  fictitious  detector  at 

POSLON  Point  V)  intersects  earth’s  surface.  Set  in  Subroutine 

JPfJELL.  (km,  rad’3ns,  radians) 


SPCLAT,  -  North  latitude  ana  east  longitude  of  the  point  on  an 
SPCLOU  assumed  smooth  horizontal  surface  for  a  specular  ret  ec- 

tion  from  the  source  to  the  detector  at  Point  V.  (Set 
in  Subroutine  GLITTR  if  SpCiiLR  =  .TRUE  . . )  (radians) 


C12ALT, 

C12LAT, 

C12L3N 


Altitude,  north  latitude,  and  east  longitude  of  Point  C 
at  which  line-of-sight  (directed  toward  Point  D  from 
fictitious  detector  at  Point  V),  intersects  the  12-km 
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altitude  surface.  set  'i  subroutine  JPwELL .  (Km, 

: aii ans .  rad1 ansi 

CoRinon  v’»D*U-  NCIiC 

See  HCHC  in  either  table  6-?.  for  sjprojtine  or  Table  0-1  far 

Subroutine  TRSSCO  - 

Common  'SAUDD  XS,  rs ,  25,  <3,  YO,  ZD,  UL ,  VL ,  wL 

3y  calls  to  Subroutine  GE3*V2.  Subroutine  jPwELl  sets  -  for  use  m 
Subroutine  S-VUM  after  transfer  from  P unction  TMViSP  in  the  Natural  Cloud 
Module  -  the  Earth-centered  Cartesian  coordinates  of  the  sun  <x5.  YS,  ZS  J  and 
of  the  fictitious  detector  (XD.  YD,  ZDl  at  °oint  V;  the  solar  coordinates  are 
zeroed  if  the  sun  is  below  the  horizon.  jP'wELL  also  sets  the  direction 
cosines  UL ,  VL  ,  *L )  of  Point  0  as  viewed  from  3oint  V. 

XS ,  -  Cartesian  coordinates  of  the  source  location  in  the 

YS,  Earth-centered  system.  The  x-direction  points  to  zero 

IS  degrees  longitude  and  ninety  degrees  colatitude.  Che  z 

direction  is  through  the  north  pole,  (km; 

XD.  -  Cartesian  coordinates  of  the  detector  location  in  the 
YD,  Carth-centered  system.  ( km', 

ID 

^L.  -  Direction  cosines  of  tne  1 ine-of-sight  vector  in  the 

Vl ,  Earth-centered  system. 

wL 

Common  5  XT  ELL  .■  SATLAT  ,  SAtlDS,  SATALT.  SAtIEN  ,  EWE: 

SATELL  is  not  used  in  the  *1  '1  Module  sec  a  us-*  cub routine  UwrL. 

does  not  deal  with  real  sensors.  -$ATELL  •  was  included  in  ..  ,p routine  >  A  \  AD 

on  the  assumption  that  it  would  be  a  utility  routine,  used  when  a  real  sensor 

in  a  satellite  looks  at  the  ground.  iowever.  >  JU.  \.l  is  not  so  used. 

SMALT.  -  Altitude,  nortn  latitude,  and  east  longitude  of 
SAT  cAT ,  satel  1  i  te-borne  defector,  (km.  radians,  ra.nans' 

SATL3N 

SATIlS  -  Zenith  angle  of  ray  reflected  at  3oint  3  towards  the 
satellite,  (Hot  computed.)  (radians! 

SATAZI  -  Absolute  value  of  azimuth  of  reflected  ray.  measured 
frail  principal  pi  ane  determined  by  vertical  plane 


t  rough  inconing  ray  from  sun.  (Not  con;.ited.) 
( rau’ ans! 


Common  .'SOL ARP/  SOI. L AT,  SOUON,  SOLIRR(ld) 

The  position  variables,  set  in  Subroutine  ATMQSU  after  it  calls  Sub¬ 
routine  SOLORB  during  the  initialization  phase,  are  used  in  Subroutine  ORWELL 
SURRAD,  and  RINOuT.  The  irradiance,  set  in  Subroutine  SURRAD  after  it  calls 
Subroutine  SOLRAD,  is  used  in  Subroutines  SURRAD  and  UPWELL . 

SOLLAT,  -  North  latitude  and  east  longitude  of  subsolar  peint- 
SOlLQN  (radians) 

SOLlRR(c)  -  Solar  spectral  irradiance  at  ttje  top  of  the  atmosphere 
L  =  1 , NWAVE J  at  wavenumber- i ndex  L.  ["'(cm  cm  j 


Common  /SORCE/  NSORCE,  HSORCE(l),  RSORCE ( l| ,  THETAS,  PHIS 

The  geometrical  variables  in  /SORCE/  are  set  by  Subroutine  cPLELL  in 
terms  of  the  solar  position  (the  only  source  with  which  Subroutine  UPWELL  is 
concerned)  and  are  passed  to  Function  TRANSF  in  the  Natural  Cloud  Module. 


NSORCE 


HSORCE(l) 


RSORCE  (l ) 


THETAS, 

PHIS 


Tne  number  of  sources.  Set  to  1  in  oata  statement  in 
Subroutine  UPWELl. 

Altitude  of  sun  (RSUN).  RSU’fi  is  set  in  data  statement 
in  Subroutine  UPWELL.  (km) 

Radius  of  source.  True  value  for  sun  is  not  relevant 
for  applications  in  NBR  Module.  Set  to  0.0  in  data 
statement  in  Subroutine  UPWELL. 

Colatitude  and  east  longitude  of  subsolar  point. 

( degrees) 


common  /SOUR'.'  E  /  SRCLAT,  SRC  LON,  SRCALT  ,  SRCFLG,  SRCZF.h  ( 1 1 ) ,  SRCSR(U) 

The  geometrical  variables  in  /SOURCE/  are  set  by  Subroutine  RINCJT. 
Currently  (April  1980)  only  the  sun  is  used  as  a  source  for  Subroutine  SURRAS. 
(Fireballs  are  never  used  in  the  call  to  Subroutine  SURRAD  from  Subroutine 
UPWELL  in  the  NBR  Module.) 

SRCALT  -  Altitude  of  source  i r  not  the  sun.  (Em) 


SRCLAT,  -  North  latitude  and  east  longitude  of  source  (sun  or  f 
SRC.L0N  ball),  (radians) 


ire- 
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SRCFI.G  -  Flag  characterizing  source 
=1,  Source  is  sun 
=  2,  Source  is  fireball 

SRCZEN(l)  -  Zenith  angle  of  ray  incoming  to  Point  P  from  the  sun. 

( radians) 

Tor  L-l , IF  IRES  (Not  used  in  NBR  Module) 

SRCZEN (L +1 )  -  Zenith  angle  of  ray  incoming  to  Point  P  from  Fireball-L. 

( radians) 

SRCSR(l)  -  Not  defined. 

SRCSR(L+1 )  -  Slant  range  from  Fireball-L  to  Point  P.  (km) 


Conmon  /TECTOR/  DETLAT,  DETLON,  OETALT,  DETZEN,  DETAZI (11 ) 

Subroutine  UPWELL  uses  /TECTOR/  to  position  3  fictiti'w,  detector  at 
Point  V  and  pass  the  information  to  Subroutines  SURRAD,  RINOUT,  and  GLITTR. 
The  scattering  angles  are  set  in  Subroutine  RINOUT  and  used  in  Subroutine 
SURRAD. 


DETALT,  -  Altitude,  north  latitude,  and  east  longitude  of 
DETLAT,  fictitious  detector  at  Point  V.  (km,  radians,  radians) 
DETLON 


UETZEN  -  Zenith  angle  of  ray  reflected  at  Point  P  on  Earth's 
surface  toward  the  detector  at  Point  V.  (radians) 

DETAZl(l)  -  Absolute  value  of  azimuth  angle  of  reflected  ray, 

measured  from  principal  plane  determined  by  vertical 
plane  through  incoming  solar  ray.  (radians) 

For  L  =  1 , IFIRE  (Not  used  in  NBR  Module) 

DETAZKL+l)  -  Absolute  value  of  azimuth  angle  of  reflected  ray, 

measured  from  principal  plane  determined  by  vertical 
plane  through  incoming  ray  from  fireball,  (radians) 


Corrmon  /TIME/  IYRS,  IMONS,  IDAYS,  ZT,  PLAT,  PLON,  UT,  GAT,  FYR,  FST,  RH05KM, 
CHI 

The  variables  IYRS,  IMONS,  IDAYv,  and  ZT  are  read  by  Program  DRVUPW. 

GCO  and  GLO  are  also  read,  in  terms  of  which  PLAT  and  PLON  are  set.  UT  is  set 

by  Subroutine  ZTTOUT,  GAT  by  Subroutine  SOLORB,  FYR  and  FST  by  Subroutine 

JULIAN,  RH05KM  by  Subroutine  ATMOSU,  and  CHI  by  Subroutine  SOLZEN. 

IYRS  -  Number  of  the  year  in  the  1900 ‘s  at  east  longitude  GLO 
(p.g.,  1980  becomes  80). 
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1M0NS  -  Number  of  the  month  at  east  longitude  GLO  (e.g., 

February  becomes  2). 

IOAYS  -  Day  of  the  month  at  east  longitude  GLO. 

ZT  -  Zone  time  for  the  15-degree  longitude  interval  contain¬ 
ing  east  longitude  GLO.  (decimal  hours) 

GCO,  -  Geograpnic  colatitude  and  east  longitude  of  grid  origin 
GLO  or  whatever  reference  point  is  desired,  (degrees) 

PLAT,  -  North  latitude  and  east  longitude  of  grid  origin. 

PLON  (radians) 

UT  -  Universal  time  corresonding  to  zone  time  ZT.  (decimal 
hours) 

GAT  -  Greenwich  apparent  time,  (decimal  hours) 

FYR  -  Fractional  season-year,  being  zero  on  1  January  in  the 
northern  hemisphere  and  zero  on  1  July  in  the  southern 
hemi sphere . 

FST  -  Fractional  summer,  being  one  on  1  July  and  zero  on  1 

January  in  the  northern  hemisphere  and  reversed  in  the 
southern  hemisphere. 

RH05KM  -  Mass  density  of  dry  air  at  5-k.m  altitude,  (g/cm  ) 

CHI  -  Zenith  angle  of  the  sun  at  grid  origin,  (radians) 

Conrnon  /UPWEIS/  UPWALT,  UPWLON,  UPWLAT,  NALT (5) ,  ZKM(13,5),  NNADIR,  NAZI, 

NWAVE (5) ,  IDAYY ,  CLDFLG ,  UPRADN ( 13 , ID , 5 ) ,  WV(10,5),  I KM, 

N3ANDS 

Program  DRVUPW  sets  the  variables  UPWALT,  UPWLON,  UPWLAT,  and  NBANDS 
and  the  array  NWAVE ( M)  (M:JBAND=1, NBANDS!  and  reads  the  variables  NNADIR, 

NAZI,  and  CLDFLG.  Program  DRV'JP'W's  call  to  Subroutine  SLTALT  sets  the  arrays 
NALT(M)  and  ZKM(1,M)  (M=l, NBANDS;  1=1, NALT( M)) .  The  call  to  Subroutine  UPWELL 
sets  IOAYV,  UPRADN (I ,L,M)  (for  1=1 , NALT (M) ;  L=1 , NWAVE ( M) ;  M=l, NBANDS),  and  I  KM 


The  array  WV(L,M)  (L=1,NWAVE(M) ;  M=l, NBANDS)  is  not  used  in  the  stana 
alone  version  of  the  NBR  Module  but  is  set  in  Program  i  OOK  in  ROSCOE-IR  to 
record  the  group  of  central  wavenumbers  of  the  band-intervals  used  in  calling 
Subroutine  UP'WELL  for  each  broad-band  M. 
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UPWALT  -  Surface  altitude  of  the  sub-V-point.  (km) 

UPWALT,  -  North  latitude  and  east  longitude  of  Point  V  at  which 

UPWLON  upwelling  radiance  is  computed,  (radians) 

For  1=1, MALT (M) ;  L=1 , NWAVE (M) ;  M=1 , NBANDS 

NALT(M)  -  Number  of  altitudes  ZKM(l.M)  for  (broad)  wavelength-band 
index  M.  Uefines  NALTJ. 

ZKM(I.M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling 
radiance  is  computed,  (km) 

NNADIR,  -  Number  of  nadir  and  azimuth  angles  at  Point  V  at  which 
NAZI  upwelling  radiance  is  computed. 

NWAVE(M)  -  Number  of  wavenumbers  at  which  the  upwelling  spectral 
radiance  is  to  be  computed  for  (broad)  wavelength-band 
index  M.  Defines  NWAVEJ. 

IDAYV  -  Index  for  diurnal  condition  at  sub-V-point, 

=0,  Solar  zenith  angle  >  90  degrees 
=1,  Solar  zenith  angle  £  9U  degrees 

CLDFLG  -  Index  for  inclusion  of  natural  clouds. 

=0.,  Natural  clouds  are  not  included 
=1.,  Natural  clouds  are  included 

UPRADNU  ,L,M)  -  The.  nadir-averaged  value  of  UP  RADA  ( 1 ,  J ,  L  ) .  LW/(cm^  sr 

cm"1 ) ] 

W V ( L , M )  -  The  array  of  central  wavenumbers  corresponding  to 

(broad)  wavelength-band  index  M.  (Not  used  in  stand¬ 
alone  version  of  the  NBR  Module.  Setjin  Program  0L00K 
and  used  in  Subroutine  UPWELT.)  [ cm  ) 

IKM  -  Index  for  number  of  altitudes  at  which  calculations  are 
made  when  clouds  are  included.  Used  in  Subroutines 
SURRAD  and  UPWELL. 

NBANDS  -  Number  of  (broad)  wavelength  binds. 


Common  /  UPWELS1/  RUI0(b,10),  R010A(  6, 10  ,  lU  )  ,  R010N ( o , 10 ) , 

R025(6,10! ,  R025A(6, 10,10).  R025N(6,10), 

RU50(6 , 1U  ) ,  R05UA( 6 , ID  ,  10 ) ,  R050N(6,1U), 

R090 (6,10),  R090A(t>,10,10),  R090N(6,1U), 

R100(6 , 10  } ,  RIOUAlb,  10,10),  RlOUN(b.lO) 

Each  of  the  arrays  in  /UPWELS1/  is  computed  in  Subroutine  UPWELL. 
For  XXX  -10, 25, 50, 90, 100;  IKM  1  1; 
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J  =  1  ,NNAD IR ;  K=l,NAZl;  L=1,NWAVE(M) 

RXXX(K,L)  -  XXX-percentil  e  of  the  integral  distribution  of  the  total 
(including  that  from  statistical  clouds)  natural  up- 
welling  spectral  radiance  received  at  Point  V  for  wave- 
number-L  (at  implicit  altitude-IKM  above  surface  mate¬ 
rial  MSM)  along  a  ray  directed  to  Point  P  on  Earth's 
surface  (at  implicit  nadir-J  and  explicit  azimuth-K). 
LW/(cmc  sr  cm-1)] 

Note:  RXXX(K,L)  does  not  include  ARCVA(IKM,J  ,L) . 
Currently,  UPRAD(K.L)  and  RXXX(K.L)  are  being  written  in 
binary  form  on  Logical  Unit  No.  8,  for  all  appropriate 
altitudes  and  nadirs. 

RXXXA(IKM,J,L)  -  The.azimuth-averaged  value  of  RXXX(K,L).  tW/(cm2  sr 

cm'1)] 

RXXXN(IKM.L)  -  The, nadir-averaged  value  of  RXXXA(IKM,J,L) .  [W/(cmZ  sr 
cm  )] 

ARCVA(  I  KM  ,J  ,L )  -  When  clouds  are  considered,  a  component  of  the  upwellir.g 

spectral  radiance  received  at  Point  V  (at  altitude-IKM), 
from  air  emission  above  12-km  altitude,  along  a  ray 
directed  to  Point  P  on  the  Earth's  surface  (at  nadir-J 
and  independent  of  azimuth-K).  [W/(cm  sr  cm)] 

ARCVN(IKM.L)  -  The.nadi r-averaged  value  of  ARCVA(IKM,J,L).  [W/cm2  sr 
cm"  )] 


Conmon  /UPWEIS2/  JBAN01 

The  variable  0BAND1  is  set  to  the  (broad)  wavelength- band  index  JBANO 
in  Subroutine  UPWELl  and  passed  through  /UPWELSZ/  To  Subroutine  SURRAD  to 
facilitate  some  print. 


Common  /UPWELS3/  UPRAD(6,1Q),  UPRADA( 13, 10, 10) 

Both  of  the  arrays  in  /UPWELS3/  are  computed  in  Subroutine  UPWELL. 
(As  the  code  has  developed,  there  remains  little  reason  for  including  the 
array  UPRAD  in  /UPWELS3/ . 

For  1=1 ,NALT (M) ;  J=1,NNADIR;  K=1,NAZ1;  L=1,NWAVE(M) 

UPRAO(K.L)  -  Natural  upwelling  spectral  radiance  received  at  Point  V 
(at  altitude-I  above  surface  material  MSM)  along  a  ray 
directed  to  Point  P  on  Earth’s  surface  (at  nadir-J  and 
azimuth-K).  I-  and  J -dependence  is  not  stored,  so  user 
must  print  UPRAD(K.L)  immediately  after  computation  if 
he  wants  to  see  them.  Currently,  UPRAD(K,l)  and 
RXXX(K,L)  are  being  written  in  binary  form  on  Logical 
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Unit  No.  8,  for  all  appropriate  altitudes  and  nadirs. 
[W/(cnr  sr  cm'1)] 

UPRADA( I ,J,L)  -  The, azimuth-averaged  value  of  UPRAQ(K.L).  [W/(cm^  sr 

cm'1)] 


Cormon  /VPC/  WVFLAG,  METHOD 

Currently,  in  Program  DRVUPW,  we  set  WVFLAG=0.0  and  METHOD=0. 

WVFLAG  -  Flag  for  optional  treatment  of  water  vapor. 

=  0.0,  Normal  treatment 
4  0.0,  Optional  treatment 

METHOD  -  Flag  indicating  one  of  four  options  for  treatment  of 
water  vapor. 

=1,  Data  values  in  parts  per  million  by  ma§s.  (ppmm) 

=2,  Data  values  in  absolute  tumidity,  (g/m  ) 

=3,  Data  values  in  relative  humidity,  (percent;  10  pir- 
cent  is  input  as  10.0,  not  0.10) 

=4,  Data  values  in  dew-point  temperature,  (deg  K) 


Conrnon  /XY/  TT(10) 

TT( I )  -  Temperature  array  in  atmospheric  transmission  model. 

Set  as  data  in  Program  DRVUPW  and  used  in  Subroutines 
SEGMENT  and  TRANS. 

C ornncn  /XYZCOM/  ITMTE,  LTMTE,  NS,  H SHELL (81 ) ,  TS(81),  PS(81),  XNSPEC(81 ,10) , 
U(10,10,Z),  UP ( 10, 10 ,2 ) ,  NMOLS,  FACT 
The  variables  ITMTE,  LTMTE,  and  NMOLS  are  set,  and  the  variable  FACT 
is  read,  by  Program  DRVUPW.  Subroutine  SHELLS  sets  the  variable  NS  and  the 
arrays  HSHELL (81 ) ,  T$(81),  PS(81),  and  XNSPEC(81 ,10 ) .  Cumulative  values  of 
the  path- parameter  arrays  U (10, 10, 2)  and  UP (10, 10, 2)  are  set  by  Subroutine 
PATH  and  used  by  Subroutine  TRANS  to  compute  the  molecular  transmittance. 

ITMTE,  -  Auxiliary  input  and  output  data  file  numbers  for 
LTMTE  Subroutine  TRANSB.  Set  to  2  and  3,  respectively,  in 
Program  DRVUPW.  See  TAPIN  and  TAPOT  in  Table  7-8  for 
Subroutine  TRANSB  for  more  information. 

NS  -  Number  of  boundary  altitudes  used  in  Subroutine  SHELLS. 

For  J=1,NS 

HSHELL (J),  -  Altitude,  temperature,  pressure,  and  species-N  density 

T$(J),  at  altitude-boundary,J. 

PS(J),  (cm,  deg  K,  atm,  cm*"5) 

XNSPEC(J) 


For  1=1,2  (adequate  for  ambient  atmosphere);  N=l,10 
U(l,N,2)  -  Cumulative  value  of  path  parameters  U  (species-N  areal 

UP ( 1 ,N  ,2 )  density)  and  UP  (product  of  U  and  pressure  P)  for 

temperature- index  I  and  species-N.  See  Table  5-5  for 
Subroutine  PATH  and  Table  6-10  for  Subroutine  TRANS, 
(cm  at  STP,  atm-cm  at  STP) 


NMOLS  -  Number  of  species.  Set  in  Program  DRVUPW  and  used  in 
Subroutines  ATMRAO  and  TRANS  (where  known  as  NSPEC). 


FACT  -  Parameter  controlling  the  number  of  altitude  boundaries 
and  their  spacing.  See  Table  7-9  for  Subroutine  SHELLS 
for  more  information. 


Common  /ZHCHEX/  ZHFLAG,  SPIFLG 

The  variables  in  /ZHCHEX/  are  defined  and  their  use  (to  insure  Sub¬ 
routine  ATMOSU  is  called  prior  to  Subroutines  10NQSU  and  SPCM1N)  is  described 
in  the  listings  of  Subroutines  ATMOSU,  I0N0SU,  and  SPCMIN  in  Volume  14a- 1. 
/ZHCHEX/  does  not  affect  the  NBR  Module  per  se. 

Common  /ZHTEMP/  NZHT,  ZHT(31),  TZH(31),  TPFLAG 

For  steps  required  by  the  user  to  bypass  the  code's  specification  of 
the  temperature  profile  in  the  low-altitude  (0-  to  120 -km)  region,  see  p.  38 
in  Volume  14a-l.  (The  arrays  ZHTZ(3)  and  TZKZ(3)  appearing  as  arrays  in 
/ZHTEMP/  in  Volume  14a-l  are  development  artifacts  and  should  be  deleted.) 
Currently,  in  Program  DRVUPW,  we  set  TPFIAG=0.0. 

NZHT  -  Number  of  altitudes  (31)  at  which  the  low-altitude  tem¬ 
perature  profile  is  defined. 


For  1=1, NZHT 

ZHT(I)  -  Altitudes  at  which  the  temperature  profile  is  defined. 
=0.0(4.0)120.0  km 

TZH(l)  -  Temperature  profile  (for  TPFLAG=0.0),  determined  by 

interpolation  of  the  data  base  [US-66]  for  latitude  and 
season,  used  as  input  to  the  major  atmospheric  species 
model  for  the  low-altitude  range  from  0-  to  120-km  alti¬ 
tude.  (deg  K ) 

-  Temperature  profile  (for  TPFLAG  i  0.0),  specified  by 
user  at  altitudes  z  =  0(4)120  km.  (deg  K.) 

TPFLAG  -  Flaq  for  optional  treatment  of  temperature  profile. 

=  0.0,  Normal  treatment 
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¥  0.0,  Optional  treatment,  allowing  Subroutine  TEMRZH  to 
read  the  user- sped fied  profile  at  altitudes  z  = 
0(4)120  km 

7-3  DRIVER  PROGRAM  DRVUPW  AND  INITIALIZING  ROUTINES 

7-3.1  Cal cul ational  Steps  in  Program  DRVUPW 

Here  we  describe  the  calcul ational  steps  required  in  the  driver  for 
the  NBR  Module,  Program  DRVUPW. 

A.  Initialization 

1.  DSA  System 

a.  Set  parameters 

b.  Call  QINITL 

2.  Ambient  atmosphere 

a.  Read  time  and  place 

b.  Set  option  parameters  for  water  vapor  and  temperature 
profiles 

c.  Call  ATMOSU 

3.  Natural  clouds 

a.  Read/set  parameters 

b.  Call  CLOUOO 

4.  Create  Oatasets-BN  and  -31 

a.  Read  spectral  data 

b.  Call  CREATE,  PUTSCH  ,  or  PUTTOP 

5.  Compute  band-model  parameters 

a.  Set  option 

b.  Call  TRANSB 
S.  Atmospheric  shells 

a.  Read/set  option 

b.  Call  SHELLS 

7.  Prepare  to  call  UPWELL 

a.  Read/set  aerosol  parameters 
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b.  Read/set  atmospheric  emission  option  and  transmittance 
parameter 

c.  Read/ set  geometry  parameters  for  UPWELL 

d.  Read/ set  surface  material  parameters 
B.  Operation 

1.  Initiate  (broad)  wavelength- band  spectral  loop 

2.  Get  Datasets 

a.  Call  PREV  for  Dataset-BN 

b.  Call  PREV  for  Dataset-BI 

3.  Set  altitudes  for  UPWELL 

a.  Set  (broad)  wavelength-band  limits 

b.  Call  SET  ALT 

4.  Call  UPWELL 

5.  Write  results 

7-3.2  Subroutine  SETALT 

The  purpose  of  Subroutine  SETALT  is  to  provide  a  set  of  altitudes  at 
which  Subroutine  UPWELL,  for  a  given  spectral  range,  will  compute  the  up- 
welling  natural  radiation.  To  minimize  the  number  of  such  altitudes,  we  have 
accounted  for  the  spectral  dependence  of  the  air  transmittance,  as  now  de¬ 
scribed. 


Our  approach  in  selecting  altitudes  was  to  compute  the  upwelling 
radiance  for  a  strictly  nadir-looking  sensor  as  a  function  of  altitude  and 
wavelength  in  the  2-  to  5-um  band.  The  wavelengths  used  are  the  21  test 
values  given  in  Table  7-5.  The  resolution  was  10  cm'^.  The  altitudes  used 
are  0(0.1)1(1)10(2)20(5)30(10)100  km.  We  used  an  atmosphere  (see  Volume 
14a-l)  >r  a  zone  time  of  0.0  hours  on  19  September  19/8  at  a  geographic  loca¬ 
tion  of  45-deg  north  latitude,  0-deg  longitude.  The  version  of  the  code  avail¬ 
able  at  the  time  required  the  surface  temperature  to  be  independently  speci¬ 
fied.  It  was  set  at  288  deg  K  (instead  of  the  air  temperature  at  the  first 
shell  boundary  which  was  286.5-degK).  The  surface  emissivity  was  0.9.  The 
zoning  of  the  atmosphere  into  shells  was  determined  by  FACT^l,  but  the  algo- 
ritrin  used  was  not  the  one  currently  -;et  by  GRC  (see  Table  7-9  for  Subroutine 
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SHELLS)  but  the  one  originally  specified  by  G.E.  Tempo,  according  to  which  the 
76  shell  thicknesses  were  0.5263  km  between  0  and  20  km  and  2.105  km  from  20 
to  100  km. 

Table  7-5.  Wavelengths  used  in  developing  Subroutine  SETALT. 


Wavelength,  um 


Bin 

No.  Bin  Edge _ T est  V al ues _  Bin  Edge 


1 

2.0 

2.0 

2.1 

2 

2.1 

2.40, 

2.50, 

2.55 

2.575 

3 

2.575 

2.60, 

2.65 

2.675 

4 

2.675 

2.70 

2.725 

5 

2.725 

2.75, 

2.80, 

2.85 

2.825 

6 

2.875 

2.90, 

2.95, 

3.00, 

3.20,  3.50,  4.00,  4.10  4.15 

7 

4.15 

4.20, 

4.25, 

4.30, 

4.40,  4.50  4.55 

8 

4.55 

4.60, 

4.70 

4.75 

9 

4.75 

4.80 

4.85 

10 

4.85 

4.90, 

5.00 

5.0 

The  results  for  these  upward- vertical  radiance  calculations  are  shown 
in  Figures  7-2a,  7-2b,  and  7-2 c  for  the  27  wavelengths.  (The  peaks  at  50-km 
altitude  for  the  strongly  attenuated  wavelengths  simply  reflect  a  peak  in  the 
atmospheric  temperature  profile  at  that  altitude.)  Examination  of  these 
curves  led  us  to  set  the  bin  altitudes  given  in  Table  7-6.  More  detailed  work 
may  indicate  a  need  for  revising  the  bin  edges  and/or  altitudes.  Subroutine 
SETALT  is  designed  so  that  if  the  wavelength  band  of  interest  spans  more  than 
one  bin,  a  set  of  altitudes  is  provided  by  combining  those  for  each  of  the 
spanned  bins.  Table  7-7  gives  the  input  and  output  variables  for  Subroutine 
SETALT. 

The  results  in  Figures  7-2a,  7-2b,  and  7-2c  are  replotted  in  Figure 
7-3  to  show  tht  spectral  dependence  of  the  upwelling  radiance  for  a  nadir¬ 
looking  sensor,  for  altitudes  of  0,  5,  and  50  km.  The  curve  for  0-km  altitude 
is,  of  course,  just  that  given  by  the  Planck  function  for  T=288  deg  K  and  an 
emissivity  of  0.9. 
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/jm)  for  nadir-looking  sensor 


Table  7-6.  Bin  altitudes  selected  for  Subroutine  SETALT. 


Bin 


No. 


Altitudes,  km 


1  0,  1,  12,  20,  100 

2  0,  1,  12,  100 

3  0,  l,  3,  12,  100 

4  0,  1,  2,  4,  9,  12,  20,  30,  50,  70,  100 

5  0,  1,  3,  12,  100 

6  0,  1,  12,  100 

7  0,  1,  3,  6,  12,  20,  50,  70,  100 

8  0,  1,  12,  100 

9  0,  1,  12,  30,  100 

10  0,  1,  12,  100 


Table  7-7.  Input  and  output  variables  for  Subroutine  SETALT. 


INPUT  VARIABLES 

Argument  List 

ALMIN ,  -  Minimum  and  maximum  wavelengths  for  which  upwelling  natural 

ALMAX  radiance  is  to  be  computed,  for  (broad!  wavelength-band 

index  JBAND .  (  urn) 

JBAM)  -  Index  for  list  of  (broad)  wavelength  bands.  (1  to  51 
Data  Statements 

NBINL1  -  Number  of  wavelength  bins  (or  number  of  wavelength-bin 
boundaries  minus  one). 


For  L=1,NBINL1+1 

BINLAM(L)  -  Wavelength  of  bin-boundary  L.  (mi) 

For  1=1,NALTL(M),  M=1,NBINL1 
NALTL(M)  -  Number  of  altitudes  for  wavelength-bin  M, 

HUPWEL(I.M)  -  Altitude-I  for  wavelength-bin  M.  (km) 

( continued) 
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Table  7-7.  Input  and  output  variables  for  Subroutine  SETALT  (Cont'd', . 


OUTPUT  VARIABLES 
UPWELS  Common 

For  UBAND  =  J=l,5;  i=l,NALT(J) 

NALT(J)  -  Number  of  altitudes  for  (broad)  wavelength-band  index  JBAND 

ZKM(1,J)  -  Altitudes  of  Point  V  above  reference  altitude  (IIPWALT)  at 
which  upwelling  natural  radiance  is  computed  for  (broad) 
wavelength-band  index  J3AHD.  (km) 


7-3-3  Other  Ini ti ai i zati on  Routines 
7-3.3. 1  DSA  System 

Comments  in  our  listing  of  Program  DRV'JPa  define  the  six  words  and/or 
arrays  that  are  initialized  there  before  calling  QINITL.  We  also  state  how  to 
estimate  minimum  storage  requirements  for  high  speed  memory  in  terms  of  the 
number  and  sizes  of  datasets.  For  more  information  on  the  GRC  DSA  System,  see 
oP-/B.  The  version  of  the  DSA  System  we  havp  used  was  prepared  by  L.  Ewing  of 
G.E.  Tempo.  Whereas  it  differs  somewhat  frcr  the  GRC  version, it  is  sain  to  be 
equivalent,  at  least  for  the  current  aoplication. 

7-3. 3. 2  SM  Routines  (ATMGSU,  CLOUDO) 

Full  documentation  is  given  for  Subroutines  ATMOS*,  anq  CL’jj'Ju  in 
Volumes  14a- 1  and  24,  respectively. 

7-3. 3.3  G.E.  Tempo  Routines  ( T3ANS8 ,  SHELLS) 

The  purpose  of  Subroutine  TRANSB  is  briefly  described  m  Table  ?-3a 
and  in  Volume  31  ip.  74).  Our  more  detailed  summary  of  its  input  and  output 
variables  is  given  in  Table  7-8. 


Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB. 


INPUT  VARIABLES 
Argument  Li st 

L8AND  -  List  Header  Variable  (LHV)  for  Wavelength  Bands  Dataset-BN 
(No.  114).  Strictly,  LBAND  is  the  pointer  (i.e.,  it  con¬ 
tains  the  (Q-array)  address)  for  the  list  header  of  the 
Wavelength  Bands  Oataset-BN.  In  GRC  usage,  LBAND  is  stored 
as  Word-12  of  Dataset-ST  (No.  111).  In  the  SAI  stand-alone 
version  of  the  NBR  Module,  Dataset-ST  (No.  Ill)  is  not 
used,  but  LBAND  is  still  generated  in  Program  DRVUPW  and 
used  as  the  LHV  for  Oataset-BN. 


OPTION  Ccmmon 

TRNSOPT  -  Logical  variable  affecting  (a)  procedure  for  converting  the 
basic  5-cm  1  resolution  band-model  parameters  to  those  for 
the  user-specified  resolution  and  (b)  possible  redundancy 
of  output  data  if  user- selected  bands  overlap  with  common 
spectral  intervals. 

=.TRUE . ,  TRANSB  provides: 

(a)  in-band  (more,  precisely ,  "in-interval")  averaged  band- 
model  parameters.  (There  is  no  limit  on  the  allowed 
coarseness  of  the  resolution.  If  resolution  finer  than 

5- cm  is  requested,  the  code  will  compute  answers,  but 

they  may  have  little  or  no  physical  reality.) 

(b)  band-model  parameters  for  each  interval  within  a  band 
(even  though  bands  may  overlap),  and  the  bands  are  ordered 
as  in  the  Wavelength  Bands  Dataset-BN  (No.  114). 

=. FALSE.,  TRANSB  provides: 

(a)  band-model  parameters  at  a  (below-defined)  resolution 
that  may  be  finer  than  the  requested  spectral  intervals. 

In  this  case  the  TRANSB-generated  resolution  (or  subinter¬ 
val)  is  0.5  of  the  narrowest  user-specified  wavenumber 
interval,  but  within  the  range  of  5  to  50  cm  ■  The  lower 
edge  of  the  first  output  interval  lies  at  the  lowc*  edge  of 
the  lowest  wavenumber  spectral  interval. 

(b)  non-redundant  information  for  intervals  in  overlapping 
bands.  (If  bands  don’t  overlap,  there  is  nothing  to  elim¬ 
inate,  of  course.) 

Note;  For  additional  information  regarding  use  of  these 
band-model  parameters,  sef  comments  under  FAST  in  Table 

6- 10  for  Subroutine  TRANS. 


( conti nued) 
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Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB  (Cont'd). 


XYZCOM  Conmon 
ITMTE  - 
LTMTE  - 
"Dataset-BN" 


VILO  m ,  - 

WHl  BN 

TFLAG  BN  - 


Input  Binary 
TAPIN  - 

WSL ,  - 

WSH 


For  1  =  1,10;  N  = 
SOD  (I  ,N) ,  - 
DEI  (I  ,N ) 


Auxiliary  input  data  file  number  (=2  in  Program  DRYUPW). 
Auxiliary  output  data  file  number  (=3  in  Program  DRVUPW). 


Note:  The  spelling  (BN)  is  an  unfortunate  artifact  from 
the  original  development  of  the  routine  by  L.  Ewing  of  G.E. 
Tempo.  We  are  really  dealing  with  Words-3,  -4,  and  -6  of 
the  GRC  dictionary  Dataset-BI  (No.  115)  and  not  Dataset-BN 
(No.  114). 

Lowest  and  highest  wavenumbers  of  spectral  interval jover 
which  band-model  parameters  are  to  be  averaged  (cm  M 

Flag  to  denote  whether  the  wavelength  or  wavenumber  (cor¬ 
responding  to  the  argument  of  TFLAG  BN)  is  associated  with 
the  first,  intermediate,  or  last  spectral  division  in  a 
band  of  (ascending)  wavelengths  or  (ascending)  wavenumbers. 
=1.0,  First  spectral  division  (lowest  wavelength)  in  a 
wavelength  band  or  last  spectral  division  (highest 
wavenumber)  in  a  wavenumber  band. 

=0.0,  Intermediate  spectral  division. 

=2.0,  Last  spectral  division  (highest  wavelength)  in  a 

wavelength  band  or  first  spectral  division  (lowest 
wavenumber)  in  a  wavenumber  band. 


ile 

Equivjlenced  to  ITKTE.  Contains  band-model  parameters  for 
5-cm  1  resolution. 

Lower  and  higher  wavesumber  of  5-cm  *  interval  for  the  sets 
1997.5(5.0)4997.5  cm"1  and  2002.5(5.0)5002.5  cm"1,  respec¬ 
tively.  (cm  i 


=  1,10 

Mean  absorption  coefficient  and  inverse  of  mean  line-spacing 
parameter  (or  the  effective  line  density)  for  species-N  at 
temperature- index-1  for, the  wavenumber  interval  (WSL,  WSH). 
(i/cm  at  STP,  lines/cm"1) 


( continued) 


Table  7-8.  Input  and  output  variables  for  Subroutine  TRANSB  (Cont'd). 


OUTPUT  VARIABLES 


Output  Binary  File 


TAP0T  -  Equivalenced  to  LTMTE.,  Contains  band-model  parameters, 
derived  from  the  5-cm  resolution  data,  for  tne  user- 
specified  interval  DW  either  (a)  communicated  through  the 
Oataset-Bl  if  TRNSQPT  =  .TRUE .  or  (bl  set  by  an  algorithm  if 
TRNS3PT=. FALSE . .  The  algorithm  is  that  DM  equals  0.5  of 
the  minimum  DW  communicated  through  the  Dataset-BI,  but  not 
less  than  5.0  or  more  than  50  cm 

ML,  -  Lower  and  higher  wavenumbers  of  interval  DW .  (cm 


S(I  ,N), 
DE  1 1  ,H ) 


Mean  absorption  coefficient  and  inverse  of  mean  line¬ 
spacing  parameter  (or  the  effective  line  density)  for 
species-N  at  temperature-index-I  for  the  wavenumber  in¬ 
terval  DW.  (1/cm  at  STP,  lines/cm  l) 


Note:  In  Volume  31,  L.  Ewing  briefly  comments  (on  p.  74)  on  the  algo¬ 
rithm^  Subroutine  TRANSB  for  using  the  band-model  parameters  for  the 
5-cm  resolution  (WSL,  WSH)  to  obtain  the  band-model  parameters  for  the 
output  spectral  interval  (WL,  WH),  regardless  of  TRNSOPT  being  TRUE  or 
FALSE.  The  description  is  not  fully  satisfying  since  the  evidence  is  not 
given.  In  any  event,  we  record  here  the  formulas  used  in  TRANSB: 

DE( lines/cm  )  ?  DE ( I , N )  as  output  from  Subroutine  TRANSB 

-  DE1(1,N)  as  input  to  Subroutine  TRANS 

-  inverse  of  mean  line-spacing  parameter  for 
species-N  at  temperature-index-1 ,  or  the  effec¬ 
tive  line  density  for  the  interval 


S ( cm' 1  at  STP) 


r 

i 

! 


DW  (WL ,  WH)  in  TRANSB 
-  (WTL ,  WTH )  in  TRANS. 


S(I,N)  as  output  from  Subroutine  TRANSB 
S0D(I,N)  as  input  to  Subroutine  IP.ANS 
mean  absorption  coefficient  for  species-N 
temperature- index- I  for  the  interval 


at 


( conti nuedl 
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Table  7-8.  Input  and  output  variables  for  Subroutine  TRAKiSB  (Cont'd). 


DW  =  (WL,  WH)  in  TRANSB 
£  ( WTL ,  WTH )  in  TRANS. 


where: 


kj 


4j 


£  S00(I,N)  [not  same  as  input  to  TRANS] 

=  mean  absorption  coefficient  foj  species-N  at  tem¬ 
perature-index-1  for  the  S-an  1  interval  (WSL, 

WSH ! .  (cm'1  at  STP ) 

s  DEI(I,N)  [not  same  as  input  to  TRANS] 

=  inverse  of  mean  line- spacing  parameter,  or  the 
effective  line  density  for  the  5-crn  interval 
(WSL,  WSH) .  (lines/cm-i) 

e  FRAC(WL,  WH,  WSL,  WSH) 


=  fraction  of 


by  the  (5 


of  the  user  interval  OW  =  (WL,  WH)  covered 
-cm  )  basic  tape  interval  (WSL,  WSH). 


j=l 


It  is  easily  shown  that,  in  the  special  case  of  uniform  line  spacing 
over  J  intervals,  Ewing's  formulas  give  the  expected  results: 


DE 


1 


,  '  A 

J  0 


j  =  l 


^  £kj  £  ki 


s  * 


j=l 


Si 

j=l 


J=i 
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The  purpose  of  Subroutine  SHELLS  is  briefly  described  in  Table  7-3a  and 
very  briefly  in  Volume  31  (p.  68).  Our  summary  of  its  input  and  output 
variables  is  given  in  Table  7-9.  In  our  version  of  Subroutine  SHELLS  we  have 
added  statements  (a)  to  print  a  table  of  all  the  atmospheric  properties  com¬ 
puted  at  the  shell  boundaries  and  (b)  to  compute  and  print  the  water  content 
of  the  atmosphere  along  a  vertical  path  above  each  of  the  shell  boundaries. 
The  water  content  is  expressed  in  units  of  precipitable  centimeters.  This 
computation  was  added  to  facilitate  comparisons  with  other  workers. 

Table  7-9.  Input  and  output  variables  for  Subroutine  SHELLS. 


INPUT  VARIABLES 

ATMOUP  Coroion 

2 

PP  -  Pressure,  (dyne/cm  ) 

TT  -  Temperature,  (deg  K) 

SNI(I)  -  Density  of  species-I.  (cm  3) 


Particular  species 

are  indicated 

as  follows: 

N 

1=1  MAP (N )  SNI(I)  Set 

by  Subroutine 

1 

8 

NO. 

SPCMIN 

2 

11 

NO 

IONOSU 

3 

21 

NpO 

NOn 

SPCMIN 

4 

15 

SPCMIN 

5 

14 

SPCMIN 

6 

6 

ATMOSU 

7 

20 

or 

SPCMIN 

8 

22 

CH, 

SPCMIN 

9 

16 

H?0 

OH 

SPCMIN 

10 

18 

SPCMIN 

XYZCQM  Cofimon 

FACT  -  Parameter  controlling  the  number  of  altitude  boundaries  and 
their  spacing.  Nominal  value  is  1.0,  but  a  reasonable 
range  is  between  0.1  and  10.0  (per  L.  Ewing).  The  original 
algorithm  provided  by  G.E.  Tempo  allowed  a  maximum  of  81 

(continued) 
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Table  7-9.  Input  and  output  variables  for  Subroutine  SHELlS  (Cont'dl. 


boundaries,  but  a  revision  by  GRC  reduced  this  number  to  61 
and  also  altered  the  spacings.  We  have  adopted  the  GRC 
revision.  In  the  comnents  of  our  listing  of  SHELLS,  we 
have  given  the  boundary  altitudes  per  GET  algorithm  for 
FACT=1.0  and  per  GRC  algorithm  for  FACT =0.1,  1.0,  and  10.0. 
Here,  we  record  the  results  for  GRC's  FACT=1.Q  (Xn==1.25, 
Xj-3.125,  X2=7. 81251.  u 


J 

HS 

J 

HS 

J 

HS 

— 

— 

— 

1 

0. 

10  a 

13.125 

I8b 

42.8125 

2 

1.25 

11 

16.250 

19 

50.6250 

3 

2.50 

12 

19.375 

20 

58.4375 

4 

3.75 

13 

22.500 

21 

66.2500 

5 

5.00 

14 

25.625 

22 

74.0625 

6 

6.25 

15 

28.750 

23 

81.8750 

7 

7.50 

16 

31.875 

24 

89.6875 

8 

9 

8.75 

10.00 

17 

35.000 

25 

97 . 5000 

aJCHNGl  b,)CHNG2 


OUTPUT  VARIABLES 
XYZCOM  Common 

NS  -  dumber  of  altitude  boundaries 
For  J=1,NS ;  N=l,10 

HSHELL(J),  -  Altitude,  temperature,  pressure,  and  species-N  density  at 
TS(J),  altitude-boundary  J.3 
PS  (J  ) ,  (cm,  deg  K,  atm,  cm  ) 

XNSPEC(J,N) 


7-4  INTEGRATION  OF  NBR  MODULE  INTO  ROSCOE-IR 

7-4.1  General 

Table  7-10  provides  a  guide  to  the  integration  of  the  NBR -Module 
routines  into  ROSCOE-IR.  For  these  routines,  we  now  mention  some  of  the 
differences  between  the  routine  in  the  stand-alone  version  of  the  NBR  Module 
and  the  routine  in  ROSCOE-IR. 
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Table  7-10. 


Guide  to  integration  of  NBR  Module  into  ROSCOE-IR. 


NBR- 

-Module  routine3 

Program  in 

ROSCOE-IR 

Name 

Purpose  of  call 

call ing  NBR 

-Module  routine 

Q1N1TL  . 

b 

ROSMAIN ,c 

Overlay  (0,0) 

ATMOSU0 

e 

ATKGEN , 

Overlay  (3,1) 

CLOUDQ 

f 

ATk.GEN , 

Overlay  (3,1) 

TRANSB 

3 

ATKGEN , 

Overlay  (3,1) 

SHELLS 

h 

ATKGEN, 

Overlay  (3,1) 

SETALT 

i 

QL00K, 

Overlay  (3,25) 

UPWELL 

j 

0L00K, 

Overlay  (3,25) 

UPWELT 

k 

EM1SCAT , 

Overlay  (3,31) 

^ach  of  these  routines  (except  UPWELT  which  is  not  in  the  stand-alone  version 
of  the  N3k  Module)  is  called  by  the  driver.  Program  DRVUPV. 

bTo  initialize  the  OSA  routines. 

cStrictly,  Subroutine  QIMITL  is  called  by  Subroutine  ROSCOt  which  is  called  by 
Program  ROSMAIN . 

dKnown  as  ATMOS  in  ROSCOE-IR. 

eTo  initialize  atmospheric  routines  depending  on  location  and  time. 

*To  initialize  statistical -cloud  submodel  properties. 

9To  prepare,  from  the  basic  5-cm_1  resolution  band-model  parameters  file, 
band-model  parameters  for  prescribed  spectral  resolution. 

hTo  establish  atmospheric  grid  for  h  slOG  ^m. 

'To  determine  the  altitudes  (depending  on  wavelength  of  interest)  at  which 
Subroutine  UPWELL  is  to  compute  the  upwelling  natural  background  radiation. 

^To  compute,  for  a  Point  V  at  each  of  a  set  of  NALT  altitudes  above  a  given 
geographic  position,  characterized  by  ‘'aterial  MSM  and  Property  DD(MSM),  the 
natural  upwelling  spectral  radiance  directed  toward  Point  V  from  Points  P  on 
Earth's  surface  with  respect  to  Point  V  at  MNADIl  representative  nadir  angles 
and  NAZI  representati ve  azimuth  angles. 

k 

To  interpolate  the  upwelling  radiation  array  UPRADNd  ,M,L)  in  altitude  (I) 
and  select  the  appropriate  band- interval  (M)  in  broad-band  (L).  For 
altitudes  ZKM  12  km,  UPRADN  is  not  the  cloud-free  result  but  the  50- 
percentile  of  the  radiance  distribution  function  for  statistical  clouds  (if 
included  in  the  problem). 
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Our  QIN1TL  was  prepared  by  G.E.  Tempo  and,  while  different  from 
GRC's,  is  said  to  be  equivalent  for  the  present  purposes. 

Our  ATMGSU,  documented  in  Volume  14a- 1,  does  not  contain  the  DSA 
System  as  does  the  GRC  version. 

GRC's  CLOUDQ,  more  restricted  than  SAl's  documented  in  Volume  24, 
initializes  only  statistical  (as  opposed  to  deterministic)  cloud  data.  How¬ 
ever,  with  respect  to  the  NBR  Module  which  contains  only  statistical  clouds, 
the  two  versions  are  presumably  equivalent  (except  for  GRC's  DSA),  although 
the  details  have  not  been  verified. 

Subroutine  TRANS3  contains  the  DSA  System  in  both  versions  and  should 
be  the  same  in  both  versions  except  for  one  small  difference.  The  logical 
variable  TRNS0PT  enters  through  Common  OPTION  in  the  SAI  version  whereas  in 
the  GRC  version  TRNSOPT  is  set  to  Word-27  (FAST  or  GOOD)  in  the  Basic 
Oataset-30  (No.  9). 

Our  Subroutine  SHELLS  is  the  same  as  the  GRC  version  in  all  essential 
aspects.  (See  Section  7-3. 3. 3  for  small  differences.) 

Subroutine  SETALT  should  be  the  same  in  both  versions. 

Subroutine  UPWELL,  written  in  terms  of  the  DSA  System  in  both  ver¬ 
sions,  should  be  essentially  the  same.,  SAI's  version  contains  many  print 
statements  properly  deleted  in  the  GRC  version.  The  comment  regarding  TRNSOPT 
in  Subroutine  TRANSB  applies  here,  too. 

Subroutine  UPWELT,  not  in  the  stand-alone  version  of  the  NBR  Module, 
is  discussed  in  Section  7-4.2, 

7-4.2  Subroutine  UPWELT 

Subroutine  UPWELT  was  prepared  by  GRC  to  select  the  appropriate  wave- 
number  interval  and  to  interpolate  in  altitude  the  upwelling  natural  radiation 
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array,  UPRAOtf (1 ,K,JBAND 5 .  For  altitudes  ZKM  >  12  km,  UPRADN  is  not  the  cloud- 
free  result  but  the  50-percentile  of  the  radiance  distribution  function  for 
statistical  clouds  (if  included  in  the  problem).  Table  7-11  gives  the  input 
and  output  variables  for  Subroutine  UPWELT. 
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Table  7-11.  Input  and  output  variables  for  Subroutine  UPWELT. 


INPUT  VARIABLES 

Argument  list 

HCM  -  Altitude  at  \4iich  upwelling  spectral  radiance  is  desired  in 
Program  EH I SCAT  .  (cm) 

WL,  -  Lower  and  higher  limits  of  wavenumber  interval  for  which 

WH  upwelling  spectral  radiance  isdesired  (set  in  Prog~am 
EMISCAT  from  Dataset-B! ) .  (cm 

UPWELS  Comnon 

For  I=1,NALTJ;  L=1,NWAVEJ;  M=1,NBANDS 
NALT(M)  -  Number  of  altitudes  ZKM(l.M)  at  which  upwelling  spectral 
radiance  has  been  computed  for  (broad)  wavelength-band 
index  M.  Defines  NALTJ. 

ZKM(I,M)  -  Altitudes  of  Point  V  above  UPWALT  at  which  upwelling  radi¬ 
ance  is  computed,  (km) 

NWAVE(M)  -  Number  of  wavenumbers  at  which  thr  upwel’ing  spectral  radi¬ 
ance  has  been  computed  for  (broad)  wavelength-band  index  M. 
Defines  NWAVEJ. 

UPftADN (I ,L,M)  -  The  nadir- averaged  value  of  UPRADA (I  , J , L ) .  See  Table  6-2 

for  Subroutine  UPWELL.  In  the  GRC  version,  for  altitudes 
ZKM  >  12  km  and  if  clouds  are  included,  UPRACN  is  not  the 
cloud-free  result  but  the  50-percentile  of  the  radiance 
distribution  function  for  statistiral  clouds. 

[W/(cmc  sr  cm"1)] 

WV(l,M)  -  The  array  of  central  wavenumuers  corresponding  to  (broad) 
wavelength-band  index  M.  Set  in  Program  0L00K  from 
Dataset-EI.  (cm"1) 

NBANDS  -  Number  of  (broad)  wavelength  bands. 

OUTPin'  VARIABLES 
Argument  1 i st 

-  The  value  of  the  upwelling  natural  radiation  for  the  wave- 
number  interval  (Vfl,WH),  averaged  over  the  downward  hemis¬ 
phere  and  logarithmically  interpolated  from  the  array 
UPRADS  for  the  input  altitude  HCM.  LPhotons/( cm.  sec  sr 
cm  r)] 
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SECTION  8 


LISTING  OF  SELECTED  ROUTINES 


In  this  section  we  provide  a  FORTRAN  listing  o:  those  routines  in  the 
NBR  Module  which  have  not  been  published  elsewhere  (or  at  least  rot  in  the 
form  in  which  they  are  used  in  the  N3R  Module).  An  index  to  such  routines,  as 
well  as  their  originator,  is  given  in  Table  8-1.  Table  7-3a  tells  where  list¬ 
ing  of  the  other  routines  have  been  published. 

Table  8-1.  Index  to  routines  with  FORTRAN  listing  in  Volume  27. 


Routine 

Origi natord 

Page 

Routi  ne 

.  -  .  ^  d 

Originator 

P£9e 

DRVUPW 

SAI 

227 

RINOUT 

SAI 

268 

ACCOM 

GET 

237 

SEGMENT 

GET 

271 

AEROSOL 

VI 

238 

SETALT 

SAI 

275 

AGAGEO 

SAI 

243 

SHELLS 

GET 

277 

ATMRAQ 

GET 

244 

solrad 

SAI 

280 

CANGLE 

SAI 

249 

SORTLJ 

SAI 

281 

DOT 

GET 

249 

STEP 

GET 

282 

ERF 

SAI 

249 

STEPS 

GET 

284 

ESURF 

SAI 

2  SO 

SUBVEC 

GET 

284 

FRAC 

GEi 

254 

SURRAO 

SAI 

285 

FRESNL 

SAI 

255 

TAN  GEO 

SAI 

295 

GCRCLE 

SAI 

257 

TRANS 

GET 

296 

GEO RE A 

SAI 

258 

TRANSB 

GET 

303 

GEOTAN 

SAI 

258 

TRNSCO 

GET 

303 

GEO  xn 

SAI 

259 

•JN1TV 

GET 

312 

GLITTR 

SAI 

250 

’■PWELL 

SAI 

312 

PATH 

GET 

265 

VEIN 

GET 

333 

PLANCK 

GET 

267 

XMIT 

GET 

333 

REFTAN 

SAI 

267 

aSAI  consents  inserted  in  routines  developed  elsewhere  are  denoted  by  CLJ  in 
the  first  three  columns. 
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PROGRAM  DRVJPW  (!NPL'T, OUTPUT, TAPES*:NO'JT,TAPE6=OUTPL'T,TAB£C,TAPn.  DRV'JPy 


1  TAPES'  OPyjPW 
CC  pc.-'p* 
CC  TV  IS  ROUTINE  '$  PROVIDED  T0  DRIVE  ANO  TEST  5"ORr«  t!NE  LIPwTLL  AND  DOV'JPy 
CC  THE  p ELATED  ROUTINES  N«IC“  CP“°RISE  T»E  NATJ=AL  BACKGROUND  D»VJPy 
CC  RADIATION  *IDEL  FOR  THE  UNDISrl*>5ED  tr*« SPHERE,  INCLUDING  4  ORVJPy 
CC  STATISTICAL  TREA'«ENT  OF  NATURAL  0  OUDS.  DRVUPw 
CC  ORVijPy 
CC  *»*  HISTORICAL  STATENENT  ORVL'Oy 
CC  BECAUSE  NE  HERE  GIVEN  (6/1/78!  A  MOLECULAR  TRANSMITTANCE  0»VU»W 


CC  MODULE  ST  G.E.  TEMPO  THAT  MAO  SEVERAL  ROUTINES  (DRIVE*  PRO® A**  ORVJPy 
CC  ATMOST  AND  SUBROUTINES  Aty«AP,  TRANSS,  AND  TRSSCO!  V*  ITTEN  IN  DRVJPW 
CC  TER“5  OF  THE  &RC  PSA  STSTEM,  y£  PREPARED  ’WC  VERSIONS  OF  THE  DRV'JPy 
CC  NATURAL  BACKGROUND  RADIATION  IS  BRI  MODULE.  ONE  VERSION,  U^IC*  O'VJPy 
CC  WE  REGARDED  AS  the  BASIC  VERSION,  USED  DSA  IN  THE  SAI  DRIVER  0PVJ»W 


CC  PROGRAM  DRVUPW,  SUBROUTINE  UPWELL,  AND  THE  ABOVE-NAMED  GET  DRVJPW 

CC  SUBROUTINES.  THE  OTHER  VERSION  PIP  NOT  USE  DSA.  BOTH.  DRVJPW 

CC  VERSIONS  WERE  TESTED  ON  SEVERAL  PROBLEMS  AND  GAVE  THE  SAME  DRVL'Ry 

CC  ANSWERS.  DRV'JPy 

CC  (HI  STOR1CALLV,  WE  FIRST  PREPARED  THE  DSA  VERSION  AND  THEN  DRVUPW 

CC  DEVELOPED  THE  NON-DSA  VERSION  BV  USING  A  SET  OF  ABOUT  235  ®VU“ 

CC  CORRECTION  CARDS  (DC  ACTION  CARDS  AND  ABOUT  145  COMMENT  ORVJPy 

CC  CARDS).  THEN,  THE  NON. DSA  VERSION  HAS  AVAILABLE  FRO“  A  0RVU»W 

CC  PROGRAM  LIBRA*''  (IN  THE  COSTEXT  OF  THE  CDC  !J0DATE  UTILITY  DRV’JPW 

CC  PRO® AM'  AND  THE  DS»  VERSION  HAS  OBTAINED  BV  USING  THE  *VANK  DRV'JPy 

CC  UPDATE  DIRECTIVE  TO  DELETE  THE  NON-ESA  CORRECTION  SET.I  DRVJPW 

CC  WE  EFFECTED  THE  removal  of  the  OSA-USASE  By  A  NON-STANDARD  DRV'JPy 

CC  M  FT  HOD  WHICH  RETAINED  AS  MUCH  OF  THE  DSA  CODING  AS  POSSIBLE  D’VJPW 

CC  BUT  WPf!  NEW  MEANINGS  TO  MANY  OF  THE  DSA  VARIABLES.  THE  DSA  DRVJPW 

CC  STATEMENTS  THAT  COULD  NCT  BE  USED  WERE  COMMENCED  (C-OSA!  AN  I'  DRVJPW 

CC  FOLLOWED  WITH  TH£  NECESSARY  REPLACEMENT  StAt;'.'ENTS.  DRVJPW 

CC  (THIS  PROCEDURE  WAS  FEASIBLE  FOR  US  BECAUSE  ONLY  TWO  DATASETS  DRVJPW 

CC  WERE  INVOLVED.  IT  MAY  MOT  BE  FEASIBLE  FOR  A  CASE  WlT''  MAN'  DRVJPW 

CC  DATASETS.!  DRV'JPy 

CC  DRVUPW 

CC  IN  JANUARY  USO,  DURING  f  REVIEW  OF  T-*E  INCORPORATION  OF  THE  ORVJPy 

CC  NBR  MODULE  INTO  P.OSCOE ,  NUMEROUS  ERRORS  WEPE  DISCOVERED,  SU^  rovi.'PW 

CC  OF  WHICH  WERE  COMPOUNDED  OWING  TO  THE  FACT  THAT  THf  DATASETS  DRV.'Pw 

CC  USED  IN  -HE  GET  ROUTINES  WERE  INCONSIS’CN’  WITH  THE  GSC  ORV'J°W 

CC  DICTIONARY  CATASETS.  THE  NON-STANDAR'1  DA’ASETS  HAVE  NOW  BEEN  DRVJPW 

CC  REPLACED  BY  the  STANDARD  DATASfTS  fEKCEP’  IN  SUBROUTINE  0RVJ»W 

CC  TRANSB1.  AN  EXTENSIVE  REVISION  of  THE  ( STAND-ALONE'-  NBR  DRVJPW 

CC  MODULE  WAS  REQUIRED  TQ  rr;ng  IT  INTO  A  CLOSE  CORRESPONDENCE  EPYl'PW 

CC  WITH  THE  CORRECTED  VERSION  IN  THE  ROSCDE  CODE.  CONSEQUENTLY,  DRVJPW 

CC  IN  THIS  final  VERSION  OF  THE  NBR  MODULE,  WE  DO  EMPLOY  the  GRC  CRVIPW 

CC  DSA  SYSTEM  { 8u’  IN  A  GET  VERSION  AND  NOT  IN  THE  GPC  VERSION'  pRV'JPW 

CC  WERE  APPROPRIATE.  WF  EC  NOT  PROVIDE  A  NON-OSA  VERSION.  DRVJPW 

CC  ORVJRW 

CO»*CN  ONAREA,  OWARfAflO!.  OFREHO,  QND~S\  QNLNXS,  QZSIZE,  DRV'JPy 

1  0N7SLK,  QZHtfLD,  OCOUNT  301,  QOSIZEdO',  QNSIZE,  OLUNIT' 10',  DRV-'PW 

2  OtRLUN,  0FBtTS(?,10',  0(11  DRVL’°y 

INTEGER  QNAREA,  QWA»EA,  OFREHO,  QNDTST,  QN'.  NKS,  DZSIZE,  QNZELK ,  DtVJP* 

1  OZHEAD,  OCOUNT,  0O5IZE,  QMODIK,  QNS’.ZE,  OLUNIT,  ofIELD.  DRVJF. 

?  OERLUN,  OFBITS,  OCRSIZ  OR'.".;*y 

CCOWON  /  TIME  /  IYRS.  1MONS,  IDA’S,  2T,  PLAT,  plon,  LFT,  GAt,  FYP,  ORvjR, 

1  F5T.  RHOS»“,  OH]  DRV'JPy 

COWON  /  VBC  !  WVFlaG,  METHOD  E»V.'BW 


A 

C 

0 

ii 

i  *> 

14 
J  c, 

16 

1  c 
29 
?? 
?; 
?? 
?3 
?4 

■yi 

3' 

31 

?? 

34 

35 

3f 

y 

3? 

3Q 

ii 

4? 

44 

46 

47 

4a 

4Q 

6? 
f  2 
5; 
5? 
$4 

tt. 

66 
t - 

S? 


CO*4NON  /  2HTEMP  /  XX(63),  TPftAC 

COWON  /  ITZCOM  /  (TNTE,  LTXTl,  US,  HSHELU81),  TS(81),  PS'Sd, 

1  xnsp:c{81,10),  udo.io.2),  uPdo.io,?),  *«3ls. 

2  FACT 
COAR40N  /  OPTION  /  TRNSOPT 

am  /  qptini  /  raosw 
ccprcn  /  xt  /  n(ioi 

COMMON/ AEROK  '  KYIS,  XPTYPE 

COmON/PARAMS/  INF1L ,  10F IL  ,PI  ,ERAD,QGTOR  ,RTOD6 

OWON/UPWELS/  UPWALT,UPVLON,UfWlAT,NAi.T(5).ZKMd3.5'>.NNAD!l!. 

*  NAZl,NWAYE(S),10AYY,CLDfLS,UPRADNd3,10,5), 

*  OTd0.5),I»tN,NBANDS 

comm/upwasi/ 

2  ROUK6t10l,R010A(6,10,105,R010N(6,10), 

3  RO?5(6,10),R025A(6,10,10),RO?5N(6,10!, 

A  R050(6,1Q) ,R050A(6,10,10) ,R0S0N(6,10) , 

5  R09Q(6,101,R090A!6,10,10) ,R090N(6 ,10), 

6  R100(6.101.R100A{6,10,10!,RIOON(6.10) 

7  ,  ARC VA(6 ,10,10 !, ARC VK(6 ,10) 
C0W0NA)PwaS3/  l)PSAD(6,10),UPRADAd3.10,10) 

II-NAITJ,  JJ«NNA01R,  RK-NA21,  LC-VAYEO.  NN*KBAKDS 
UPRAO(AK.C.),  UPRADAf  i I ,JJ,Lt ),  UPRADNd I  ,LL,NN) 

DIMENSION  QXXX(TOOO) 

EQUIVALENCE  (  0.  QXXX  ) 

DIMENSION  DD(7) ,WW( 10),DW( 10) , ALAM( 10) ,GLAM( 10) 

DIMENSION  8NL0  8N(1),  BNNI  8N(1).  WLO  BN(1).  WHI  8N(1), 

*  LIWRV  BN(1) 

EQUIVALENCE  (  Qd),  BNLO  BN  ),  (  Q<2),  BNNI  BN  ), 

*  (  0(3).  WLO  BN  ),  <  Qd),  WHI  BN  ), 

*  (  0(5).  UKRY  BN  ) 

DIMENSION  BNLO  BI(1),  BNH1  Bl(l).  WLO  31(1),  WHI  Bid), 

-  8KGN0  BI(1),  TFLAG  8t(l),  TRANS  Bid).  IDSBX  Bid) 

EOUIYALENCE  (  0(1).  BNLO  BI  ),  (  0(2).  BNU!  Bl  ), 

*  (  0(3).  WLO  BI  ).  (  Q{41,  VH]  BI  ). 

*  !  0(5),  K6H0  8!  ).  (  Q(6).  TELAG  ?-I  ), 

*  !  0(7),  TRANS  B!  ),  (  Q(B),  10SBX  Bl  ) 

LOGICAL  SPCULR 

ICGTCAJ  RADSU  T8NS0PT 

DATA  H  /  TOO!.  300.,  500..  750.,  1000.,  1500.,  2000.,  3000., 

*  5000.,  7000.  / 

DATA  PI  y  3.14159265  / 

DATA  00  /  0.10,  10.,  0.53,  0.,  0.,  0.,  0.5  / 

FILE  MAKES 

*  TAPE?  AND  TAPE3  ARE  IDENTIFIED  IN  P*OG«««  ORVUPW'  WITH  1  DATE 
AND  ITMTE,  RESPECTIVELY. 

n**TE  (ALIAS  TAP1N)  AND  LTNTE  (ALIAS  TA*OT)  ARE  READ  AND 
WRITTEN,  RESPECTIVELY,  BY  SUBROUTINE  TRANSB. 

*  TAPE8  IS  WRITTEN  BY  SUBROUTINE  UPWEll  AND  READ  BY  PROGRAM 
DRVUPW. 

READ  OR  OTHERWISE  SET  THE  FOLLOWING  PARAMETERS... 
parameter  in  comm  defined  in  read/set  cwent 

KVIS  AERCK  SUB.  AEROSCL  R 

KPTYPE  A-EROK  SUB.  AEROSOL  R 


ORVJPW 

59 

ORVL.'PW 

60 

ORVUPW 

6! 

ORVJPW 

6? 

DRVUPW 

63 

ORVJPW 

6« 

ORVJPW 

65 

DRVUPW 

66 

DRVUPW 

67 

DRVUPW 

68 

ORVJPW 

69 

DRVUPW 

70 

DRVUPW 

71 

DRVUPW 

72 

ORVUPW 

73 

DRVUPW 

1  H 

DRVU“V 

75 

ORVUPW 

76 

ORVUPW 

77 

DRVUPW 

’8 

DRVUPW 

79 

DRVUPW 

80 

ORVUPW 

81 

DRVUPW 

8? 

ORVUPW 

83 

DRVUPW 

84 

DRVUPW 

95 

DRVJPW 

86 

ORVUPW 

87 

ORVUPW 

88 

DRVUPW 

89 

DRVUPW 

90 

DRVUPW 

91 

DRVUPW 

92 

ORVUPW 

93 

DRVUPW 

94 

DRVUPW 

95 

DRVJPW 

96 

ORVUPW 

97 

DRVUPW 

98 

ORVUPW 

99 

DRVUPW 

no 

rpvypw 

10! 

DRVUPW 

10? 

DRVUPW 

103 

ORVUPW 

104 

ORVJPW 

105 

DRVUPW 

106 

ORVUPW 

107 

DRVUPW 

109 

ORVJPW 

109 

ORVUPW 

110 

DRVUPW 

111 

DRVUPW 

11? 

ORVJPW 

113 

ORVUPW 

114 

DRVUPW 

115 

cc 

RAOSW 

OPT  INI 

SUB.  UPWELL 

R 

DRVUPW 

116 

cc 

ORVUPW 

117 

cc 

TRNSOPT 

OPTION 

SUB.  TRANS 

R 

I 

DRVUPW 

118 

cc 

DRVUPW 

IIP 

cc 

INF  I L 

PAR AMS 

S 

81 

ORVUPW 

120 

cc 

ion  l 

PAR  AMS 

s 

B? 

ORVUPW 

121. 

cc 

PI 

PAR  AMS 

S 

ORVUPW 

122 

cc 

ERAD 

PAR AMS 

s 

c 

ORVUPW 

123 

cc 

DGTOR 

PAR  AMS 

s 

01 

DRVJPW 

124 

cc 

RTODG 

PAR AMS 

s 

02 

DRVUPW 

125 

cc 

DRVUPW 

126 

cc 

IYRS 

TIME 

DR  VATU 

R 

E 

DRVUPW 

127 

cc 

IMONS 

TIME 

ORVATM 

R 

E 

ORVUPW 

128 

cc 

IOAYS 

TIME 

ORVATM 

R 

E 

DRVUPW 

129 

cc 

ZT 

TIME 

DRVATM 

R 

E 

DRVUPW 

130 

cc 

PIAT 

TIME 

SUB.  SOLZEN 

s 

DRVUPW 

131 

cc 

PLON 

TIME 

SUB.  SOLZEN 

s 

DRVUPW 

132 

cc 

SCO 

. — 

DRVATM 

R 

E.F1 

DRVUPW 

133 

cc 

GLO 

— 

ORVATM 

R 

E.F? 

DRVUPW 

134 

cc 

ORVUPW 

135 

cc 

UPWALT 

UPWELS 

SUB.  UPWELL 

s 

DRVUPW 

136 

cc 

UPWLON 

UPWELS 

SUB.  UPWELL 

s 

DRVUPW 

137 

cc 

UPWLAT 

UPWELS 

SUB.  UPWELL 

s 

DRVUPW 

138 

cc 

N  NADIR 

UPVEIS 

SUB.  UPWELL 

R 

DRVUPW 

139 

cc 

NAZI 

UPWELS 

SUB.  UPWELL 

R 

DRVUPW 

140 

cc 

NWAVE (5) 

UPWELS 

SUB.  UPWELL 

s 

ORVUPW 

141 

cc 

cldflg 

UPWELS 

SUB.  UPWELL 

R 

ORVUPW 

142 

cc 

MSM 

— 

SUB.  UPWELL 

R 

DRVUPW 

143 

cc 

00{MSM) 

.. 

SUB.  UPWELL 

s 

G 

DRVUPW 

144 

cc 

SPCULR 

— 

SUB.  UPWELL 

R 

DRVUPW 

145 

cc 

DRVUPW 

146 

cc 

WVPlAG 

VPC 

ORVATM 

s 

E 

DRVUPW 

147 

cc 

METHOD 

VPC 

ORVATM 

s 

E 

DRVUPW 

148 

cc 

ORVUPW 

149 

cc 

TT(  I ) 

XY 

SUB.  TRANS 

s 

G 

DRVUPW 

150 

cc 

DRVUPW 

151 

cc 

ITMTE 

XYZCOM 

SUB.  TRAHSB 

s 

DRVUPW 

152 

cc 

ITMTE 

XYZCOM 

SUB.  TRAN S3 

s 

DRVUPW 

153 

cc 

NMOLS 

XYZCOM 

SUB.  TRANS 

s 

DRVUPW 

154 

cc 

FACT 

XYZCOM 

SUB.  SHELLS 

R 

DRVUPW 

155 

T 

DRVUPW 

156 

cc 

cc 

TPFLAG 

ZMTEMP 

ORVATM 

s 

E 

ORVUPW 

DRVUPW 

157 

158 

cc 

B1  INPUT  FILE  FOR  STATISTICAL  Cl.OUt 

MODEL 

DRVUPW 

159 

cc 

B2  OUTPUT  FILE  FOR 

ST ATI  STICAL  CLOUD  MODEL 

DRVUPW 

160 

cc 

C  EARTH 

RADIUS,  KM 

DRVUPW 

161 

cc 

01  DEGREES-TO-RADIANS 

DRVUPW 

162 

cc 

02  RADI  ANS-TO-OEGR  EES 

DRVUPW 

163 

cc 

E  PROGRAM  ORVATM  FOR  SUBROUTINES  ATHOSU, 

5PCMIN,  ETC. 

DRVUPW 

164 

cc 

FI  USED 

TO  SET  PLAT 

DRVUPW 

165 

cc 

F2  USED 

TO  SET  PLON 

DRVUPW 

166 

cc 

G  SET  BY  DATA  STATEMENT 

DRVUPW 

167 

cc 

HI  IDEAL!  Y  BUT  NOT 

NECESSARILY  SET 

TO 

plat 

ORVUPW 

168 

cc 

H2  IDEALLY  BUT  NOT  NECE55AR ILY  SET 

TO 

PLON 

DRVUPW 

169 

cc 

I  ALSO 

SEE  SUBROUTINE  TRAN  SB 

DRVUPW 

170 

ccc 

DRVUPW 

171 

cc 

IN  THE  FOLLOWING  SEVEN 

STATEMENTS,  THE 

DSA  MEANINGS  ARE  ... 

ORVUPW 

177 

229 


r 


cc 

QNAREA 

= 

NUMBER  OF  STORAGE  AREAS. 

DRVUPW 

173 

cc 

OWMEA(l) 

= 

NUMBER  OF  WORDS  OF  HIGH-SPEED  MEMORY  (SCM). 

DPVUPW 

174 

cc 

NOTE  THAT  THROUGH  THE  INITIALIZATION  PERFORMED  BY 

DR VUPW 

175 

cc 

SUBROUTINE  OINITL,  THE  MAXIMUM  NUMBER  OF  WORDS 

DRVUPW 

176 

cc 

AVAILABLE  IN  THE  O-ARRAY  IS  SET  equal  TO 

DRVUPW 

177 

cc 

OWAREA(l).  THUS  THE  LENGTH  OE  BLANK  COMMON 

DRVUPW 

178 

cc 

EQUALS  THE  SUM  OF  QWAREAd )  AND  THE  NUMBER  (89) 

DRVUPW 

179 

cc 

OF  WORDS  REQUIRED  FOR  THE  BLANK-COMMON  VARIAEi.ES 

DRVUPW 

180 

cc 

OTHER  THAN  Q. 

DRVUPW 

181 

cc 

THE  MINIMUM  VALUE  REQUIRED  FOR  QWARFA(l)  MAY  BE 

DRVUPW 

18? 

cc 

DETERMINED  BY  NOTING  THAT 

DRVUPW 

183 

cc 

(A)  THE  FIRST  TWO  WORDS  AND  THE  LAST  WORD  IN  THE 

DRVUPW 

184 

cc 

O-ARRAY  ARE  USED  BY  THE  DSA  SYSTEM. 

DRVUPW 

185 

cc 

(B)  EACH  DATASET  HAS  A  ZEROTH  WORD. 

DRVUPW 

186 

cc 

(C)  THE  NUMBER  OF  WORDS  USED  BY  THE  Z-BLOCK 

DRVUPW 

187 

cc 

DATASET  IS  HARDWIRED  TO  BE  101  (SUBROUTINE 

DRVUPW 

188 

cc 

QINITL  SETS  QZSI 2E  =  100 .  AND  A  ZEROTH  WORD  IS 

DRVUPW 

189 

cc 

REQUIRED).  ONE  MAY  DETERMINE  THE  MINIMUM 

DRVUFW 

150 

cc 

SIZE  REQUIRED  FOR  THE  Z-BLOCK  By  NOTING  THAT 

DRVUPW 

191 

cc. 

TWO  WORDS  (A  DATASET  POINTER  WORD  AND  A  LINK 

DRVUPW 

19? 

cc 

WORO)  ARE  REQUIRED  FOR  EACH  DATASET  AND  ALSO 

DRVUPW 

193 

cc 

ONE  LIST  HEADER  WORD  FOR  THE  DATASETS  ON  A 

DRVUPW 

194 

cc 

LIST. 

DRVUPW 

195 

cc 

IE  TWO  BANOS,  EACH  WITH  TWO  BAND  INTERVALS,  ARE 

DRVUPW 

196 

cc 

USED  FOR  A  SAMPLE  PROBLEM,  THEN  ONE  NEEDS 

DRVUPW 

197 

cc 

FOR  TWO  DATASETS-BN,  ?*(5+l)=l? 

DRVUPW 

198 

cc 

FOR  FOUR  DATASETS-B1,  4*(8+l)=36 

DRVUPW 

199 

cc 

FIRST  TWO  AND  LAST  WORDS  DC  Q,  =3 

DRVUPW 

?00 

cc 

Z-BLOCK,  =16 

DRVUPW 

?01 

cc 

ZEROTH  WORD.  1 

DRVUPW 

202 

cc 

DATASETS-BN,  1*7*?  •  5 

DRVUPW 

203 

cc 

DATASETS-B1,  2»ll+?*2)=  10 

DRVUPW 

?04 

cc 

— 

DRVUPW 

?05 

cc 

Z-BLOCK  TOTAL  =  16 

DRVUPW 

206 

nc 

DRVUPW 

207 

cc 

TOTAL  WORDS  =67 

DRVUPW 

?08 

cc 

USE  OF  NEAR-MINIMUM  SIZES  FOR  THE  Z-BLOCK  AND  FOR 

DRVUPW 

209 

cc 

QWAREA(1 )  IS  HIGHLY  RECOMMENDED  WHEN  ONE  HANTS  TO 

DRVUPW 

210 

cc 

USE  PPUMF  TO  SEE  WHAT  IS  GOING  ON  IN  BLANK 

DRVUPW 

?11 

cc 

COMMON . 

DRVUPW 

21? 

cc 

QWA»ES[21 

« 

NLIMBEP  OF  WORDS  OF  LOW-SPEED  MEMORY  (LCM1 , 

DRVUPW 

213 

cc 

QOSIZF 

:n 

= 

NUMBER  Of  WORDS  IN  SMALLEST  0A7A5ET. 

DRVUPW 

214 

cc 

0DSIZE1 

;?i 

- 

AN  ASSIGNED  VALUE  OF  7ER0  IMPLIES  THAT  DATASETS 

DRVUPW 

216 

cc 

LARGER  THAN  THE  LAST  ASSIGNED  INCREMENT  WILL  BE 

DRVUPW 

216 

cc 

ALLOCATED  THE  EXACT  NUMBER  OF  WORDS  RE0U1REP. 

DRVUPW 

217 

cc 

QEPLU'i 

* 

LOGICAL  UNIT  NUMBER  OF  DEVICE  USED  FOR  SYSTEM 

DRVUPW 

218 

cc 

ERROR  MESSAGES. 

DR VUpW 

21Q 

cc 

Q1NITI 

THIS  SUBROUTINE  INITIALIZES  OTHER  SYSTEM 

DPVUPW 

220 

cc 

VARIABLES  AND  SETS  UP  THE  FREE  LIST. 

DRVUPW 

221 

rr 

DRVUPW 

22? 

ON  AREA  r  2 

DR VUPW 

223 

QWAREAI1)  • 

2000 

DRVtIPw 

224 

QWAREAt  2 )  ■ 

50000 

DRVUPW 

??s 

ODSlZF(l)  ■ 

5 

DRVUPW 

226 

005! ZE ! 2  )  « 

0 

DRVL'Rw 

227 

QERLUN  =  6 

DPVUPW 

22B 

CALL  Q IN  I TL 

DPVUPW 

??" 

230 


ccc 

DRVUPW 

230 

cc  * 

*  *  INITIALIZE  AMBIENT  ATMOSPHERE  AFTER  SETTING  PARAMETERS  IN 

DRVUPW 

23] 

cc 

TIME,  VPC,  AND  ZHTEMP  COMMONS. 

DRVUPW 

23? 

READ  (5,315)  IYRS,  IMONS,  IOAYS,  ZT.  GCO,  GLO 

OR VUPW 

233 

WRITE(6 ,316)  IYRS,  IMONS,  IOAYS,  ZT,  GCO,  GLO 

DRVUPW 

233 

GCO  *  GCO  *  PI  /  180. 

DRVUPW 

235 

GLO  -  GLO  *  PI  /  180. 

DRVUPW 

236 

PLAT  •  .5  *  PI  -  GCO 

DP VUPW 

237 

PLON  =  GLO 

DRVll°W 

238 

WVFLAG  *  0.  $  METHOD  =0  i  TPFLAG  *  0. 

DRVUPW 

239 

CALL  ATMOSU  (  1,  120.  ) 

DRVUPW 

230 

ccc 

DRVUPW 

231 

cc  * 

*  *  INITIALIZE  NATURAL  CLOUDS. 

DRVUPW 

232 

ccc 

DRVUPW 

233 

cc 

THE  STATISTICAL  CLOUD  SUBMODEL  OF  THE  SAI/PA  NATURAL  CLOUD 

DRVUPW 

233 

cc 

MODEL  (NCM)  HAS  NOW  BEEN  INTEGRATED  INTO  THE  UPWELLING 

DRVUPW 

235 

cc 

NATURAL  RADIATION  MODEL.  (THERE  IS  NO  INTENTION  OF  INCORPORA¬ 

DRVUPW 

236 

cc 

TING  THE  DETERMINISTIC  CLOUD  SUBMODEL.)  THE  INTERFACE  OF  THE 

DRVUPW 

237 

cc 

UPWELLING  NATURAL  RADIATION  MODEL  WITH  THE  NCM  IS  ACHIEVED  IN 

DRVUPW 

238 

cc 

TWO  GENERAL  STEPS.  (1)  A  CALL  (FROM  THE  DRIVER  PROGRAM  FOR 

DRVUPW 

239 

cc 

THIS  UPWELLING  NATURAL  RADIATION  MODEL)  TO  NCM  SUBROUTINE 

DRVUPW 

250 

cc 

CLOUDO  WHICH  READS  OATA  CARDS  FOR  THE  STATISTICAL  CLOUD  SUB¬ 

DRVUPW 

251 

cc 

MODEL  AND  (2)  REPLACEMENT  OF  THE  CALL  FROM  THE  NCM  DRIVER  TO 

DRVUPW 

25? 

cc 

THE  NCM  SUBROUTINE  SCLOUD  BY  A  SET  OF  CALLS  AND  OPERATIONS  IN 

DRVUPW 

253 

cc 

SUBROUTINE  UPWELL  WHICH,  IN  THEIR  TOTALITY,  ADAPT  THE  ROLF  OF 

DRVUPW 

253 

cc 

SUBROUTINE  SCLOUD  TO  OUR  SPECIAL  NEEDS.  A  FLAG  (CLDFLG),  SET 

ORVIJPW 

255 

cc 

BY  A  READ  STATEMENT,  HAS  BEEN  INTRODUCED  SO  THAT  NATURAL 

DRVUPW 

?56 

cc 

CLOUDS  ARE  IGNORED  IF  CL0FLG=0  AND  ARE  INCLUDED  IF 

DRVUPW 

257 

cc 

(A)  CLDFLG*1  ANO  (B)  THE  ALTITUDE  ABOVE  THE  SURFACE  AT  WHICH 

DRVUPW 

258 

cc 

THE  UPWELLING  RADIATION  IS  COMPUTED  IS  AT  LEAST  12  KM  (THE 

DRVUPW 

259 

cc 

HIGHEST  ALTITUDE  OF  THE  TOP  OF  ANY  OF  THE  STATISTICAL  CLOUDS). 

DRVUPW 

260 

ccc 

DRVUPW 

261 

READ  (5,300)  CLDFLG 

DRVUPW 

26? 

WRTTE!6,318)  CLDFLG 

DRVUPW 

263 

cc 

*  SET  PARAMETERS  IN  PARAMS  COMMON. 

DRVUPW 

263 

INPIL  «  5  J  IOFIL  -  6 

DP  VUPW 

265 

ERAD  =  637  1  .03 

DRVUPW 

266 

OGTOR  *  PI  /  180.  I  RTOOG  =1.0/  DGTOR 

DRVUPW 

267 

cc 

*  NOTE  THAT  SUBROUTINE  CLOUDO  READS  SEVEN  CARDS,  THE  FIRST  OF 

DR  VUPW 

?6R 

cc 

WHICH  IS  FOR  MODEM  , 

DRVUPW 

269 

IF (  CLDFLG. EQ. 1.0  )  CALL  CLOUDO(MODE) 

DRVUPW 

2/0 

ccc 

DRVUPW 

271 

cc  * 

*  *  CREATE  DATASETS  BN  AND  BI  AND  SET  WORDS. 

DRVUPW 

27? 

cc 

WAVELENGTHS  IN  THESE  TWO  DATASETS  ARE  IN  MICRONS  FOR  SAI  AND 

DRVUPW 

273 

cc 

IN  CENTIMETERS  FOR  GRC. 

DRVUPW 

273 

J  -  0 

DRVUPW 

275 

100  READ  (5,320)  ALAM1 ,  ALA*?,  Wl,  W2,  LINT 

DRVUPW 

276 

C 

NEGATIVE  WAVELENGTH  DENOTES  END  OF  BANDS. 

DRVUPW 

277 

IF (  ALAM1  ,LT.  0.  )  GO  TO  105 

DRVUPW 

278 

J  -  J  +  1 

DRVUPW 

279 

C 

DIMENSIONING  LIMITS  ALLOWED  NUMBER  OF  BANDS  TO  5  . 

DRVUPW 

280 

IF (  J  ,GT.  5  1  GO  TO  105 

DRVUPW 

281 

NWAVE(J)  «  LINT 

DRVUPW 

28? 

IF (  ALAM1  ,EQ.  0.  )  GO  TO  102 

DRVUPW 

283 

C 

BAND-LIMIT  WAVELENGTHS  ARE  INPUT. 

DRVUPW 

283 

ALMIN  =  AMIN!  (  ALAM1,  ALAM?  ) 

DRVUPW 

285 

ALMA*  »  AMAa'I  (  ALAM1 ,  ALAM?  j 

DRVUPW 

?«6 

nnnnno 


CREATE  THE  5-WORD  DATASET-BN  AND  SET  THE  FIRST  FOUR  WORDS. 

CALL  CREATE  (  5,  NBN  ) 

BNLO  BN (NBN)  *  ALMIN 

BNHI  BN (NBN)  *  ALMAX 

WLO  BN  (NBN)  *  1.E+04/BNH!  BN(NBN) 

WHI  BN (NBN)  ■  1.E+04/BNLC  BN (NBN) 

D8N  *  (  BNHI  BN(NBN)  -  BNLO  BN(NBN)  )  /  FLOAT(LINT) 

WRITE(6,303)  ALMIN,  ALMAX,  FLOAT(LINT),  DBN, 

*  WLO  BN(NBN).  WHI  BN (NBN) 

LOOP  DO-lOl  IS  PATTERNED  AFTER  LOOP  DO-700  IN  GRC'S 
PROGRAM  ATKGEN. 

DO  101  1*1, LINT 

CREATE  THE  8-WORD  DATASET-BI  AND  SET  THE  FIRST  SEVEN  WORDS. 
CALL  CREATE  (  8,  NBI  ) 

BNLO  BI(NBI)  *  BNLO  BN (NBN)  ♦  FLOAT ( 1-1 )*DBN 
BNHI  BI(NBl)  -  BNLO  B!(N8!)  +  DP;. 

WLO  BI(NBl)  -  1.F+04/BNH]  81 (Nr  I 

WHI  BI(NBI)  -  l.E*04/BNL0  BI(NBI) 

BKGND  81 (NBI )  *  0. 

TRANS  BI(NBI)  •  0. 

TFIAG  BI(NBI)  ■  0. 

IF (  I  ,EQ.  1  )  TFLAG  BI(NBI)  •  1. 

IF (  I  .GT.  1  .ANO.  I  .EQ.  LINT  )  TFLAG  Bl(NBI)  •  2. 

SET  WORD-5  OF  DATASET-BN.  LINRV  BN(NBN),  WHICH  IS  A  POINTER  TO 
THE  LIST  HEADER  FOR  THE  0ATASET-8I .  THERE  IS,  OF  COURSE.  A 
DIFFERENT  POINTER  FOR  EACH  DATASET-BN.  USE  OF  SUBROUTINE 
PUTBOT  MEANS  ''HAT  THE  HIGHEST  WAVELENGTH  (OR  LOWEST  WAVENUMBER 
)  IS  ON  THE  BOTTOM  OF  THE  LIST. 

CALL  PUTBOT  (  LINRV  BN (NBN),  NBI  ) 

101  CONTINUE 

GET  LBAND,  THE  POINTER  TO  THE  LIST  HEADER  FOR  DATASET-BN.  IF 
THE  INPUT  BANDS  ARE  ORDERED  WITH  RESPECT  TO  INCREASING  VALUES 
GF  ALAM2  (ASSUMING  ALAM?  .GT.  ALAMI),  THEN  USE  OF  SUBROUTINE 
PUTBOT  MEANS  THAT  THE  HIGHEST  WAVELENGTH  (OR  LOWEST  WAVENUMBER 
)  IS  ON  THE  BOTTOM  OF  THE  LIST. 


CALL  PUTBOT  (  LBANO,  NBN  ) 

GO  TO  100 

BAND-LIMIT  WAVENUMBERS  ARE  INPUT. 

10?  WIIN  *  AMIN1  (  Wl.  W?  ) 

WMAX  ■  AMAX1  (  Wl,  W?  ) 

ALMIN  *  I.E+04/W1AX 
ALMAX  *  l.E*0«/WIN 

CREATE  THE  5-W0RD  DATASET-BN  AND  SET  THE  FIRST  FOUR  WORDS. 
CALL  CREATE  (  5.  NBN  ) 

BNLO  BN (NBN)  *  ALMIN 
BNHI  BN (NBN)  *  ALMAX 
WLO  BN (NBN)  ■  WMIN 
WHI  BN (NBN)  •  WMAX 

OWN  *  (  WHI  BN (NBN)  -  WLO  BN(NBN)  )  /  FLOAT (LI NT ) 

WRITE (6, 303)  ALMIN,  ALMAX,  WLO  BN ( NBN ) ,  WHI  BN(NBN), 

»  FLOAT(LINT),  OWN 
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DRVUPW 

?89 

DRVUPW 

?90 
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DRVUPW 

?93 
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294 

DRVUPW 

?95 

DRVUPW 
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DRVUPW 

297 

DRVUPW 

298 

DRVUPW 
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DRVUPW 

300 

DRVUPW 

301 

DRVUPW 

302 

DRVUPW 

303 

DRVUPW 

304 

DRVUPW 

305 

DRVUPW 
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DRVUPW 
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DRVUPW 
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DRVUPW 

310 
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DRVUPW 

313 

DRVUPW 

314 

DRVUPW 

315 

DRVUPW 

316 

DR  vupw 

317 

DRVUPW 

318 

DRVUPW 

319 

DRVUPW 

320 

DRVUPW 

321 

DRVUPW 

32? 

DRVUPW 

3?  3 

DRVUPW 

324 

DRVUPW 

3?5 

DRVUPW 
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DRVUPW 

327 

DRVUPW 

328 

DRVUPW 

329 

DRVUPW 

330 

DRVUPW 

331 

DRVUPW 

332 

DRVUPW 

333 

DRVUPW 

334 

DRVUPW 

335 

DRVUPW 

336 

DRVUPW 

337 

DRVUPW 

338 

DRVUPW 

330 

DRVUPW 

340 

DRVUPW 

341 

DRVUPW 

34? 

DRVUPW 

343 

232 


c 

LOOP  00-103  IS  PATTERNED  AFTER  LOOP  00-702  IN  6RC‘S 

DRVUPW 

344 

c 

PROGRAM  ATKGEN. 

DRYUPW 

345 

00  103  1*1 , LINT 

DRVUPW 

346 

c 

CREATE  THE  8-WORD  DATASET-81  AND  SET  THE  FIRST  SEVEN  WORDS. 

DRVUPW 

347 

CALL  CREATE  (  8,  NBI  ) 

DRVUPW 

348 

WLO  BI(NBI)  -  WLO  BN(NBN)  +  FLOAT (I-1)*DWN 

DRVUPW 

349 

WHI  61 (NBI )  •  WLO  BI(NSI)  +  OWN 

DRVUPW 

350 

BNLO  81 (NBI )  *  1.E+04/WHI  BI(NBI) 

DRVUPW 

351 

BNHI  BI(NBI)  -  1. £+04 /WLO  BI(NBI) 

ORVUPW 

35? 

8KGND  BI(NBI)  *  0. 

DRVUPW 

353 

TRANS  BI(NBI)  ■  0. 

DRVUPW 

354 

TFLAG  BI(NBI)  •  0. 

DRVUPW 

355 

IF (  I  .EQ.  1  )  TFLAG  BI(NBI)  -  2. 

DRVUPW 

356 

IF (  I  .GT.  1  .AND.  I  .EO.  LINT  )  TFLAG  BI(NBI)  •  1. 

DRVUPW 

357 

c 

DRVUPW 

358 

c 

SET  WORD-5  OF  DATASET-BN.  USE  OF  PUTTOP  MEANS  THAT  THE  LOWEST  ORWPW 

359 

c 

WAVENUMBER  (OR  HIGHEST  WAVELENGTH)  IS  ON  THE  BOTTOM  OF  THE 

DRVUPW 

360 

c 

LIST. 

DRVUPW 

361 

CALL  PUTTOP  (  LINRV  BN(NBN).  NBI  ) 

DRVUPW 

36? 

103  CONTINUE 

DRVUPW 

363 

C 

DRVUPW 

364 

c 

GET  LHV  (LBAHD)  FOR  DATASET-BN.  IF  THE  INPUT  BANDS  ARE 

ORVUPW 

365 

c 

ORDERED  WITH  RESPECT  TO  INCREASING  VALUES  OF  W1  (ASSUMING  W? 

DRVUPW 

366 

c 

.GT.  Wl).  THEN  USE  OF  PUTTOP  MEANS  THAT  THE  LOWEST  WAVENUMBER 

DRVUPW 

367 

c 

(OR  HIGHEST  WAVELENGTH)  IS  ON  THE  BOTTOM  OF  THE  LIST. 

DRVUPW 

368 

CALL  PUTTOP  (  LBAND,  NBN  ) 

DRVUPW 

369 

GO  TO  100 

DRVUPW 

370 

105 

NBANDS  •  MINO(  J.  5  ) 

DRVUPW 

371 

ccc 

DRVUPW 

37? 

cc  * 

*  *  COMPUTE  BAND-MODEL  PARAMETERS  AFTER  SETTING  PARAMETERS  IN 

ORVUPW 

373 

cc 

XYZCOM  AND  OPTION  COWCNS  NEEDED  FOR  SUBROUTINE  TRANSB. 

DRVUPW 

374 

TTMTE  -  ?  S  LTNTE  -  3 

DRVUPW 

375 

READ  (5,301)  TRNSOPT 

DRVUPW 

376 

WRITE(6,304)  TRNSOPT 

DRVUPW 

377 

CALL  TRANSB  (  LBAND  ) 

DRVUPW 

378 

ccc 

DRVUPW 

379 

cc  * 

*  *  INITIALIZE  ATMOSPHERIC  SHELLS  AFTER  SETTING  PARAMETER  IN 

DRVUPW 

380 

cc 

XYZCOM  COMMON. 

DRVUPW 

381 

READ  (5.300)  FACT 

DRVUPW 

38? 

WRITE(6,302)  FACT 

DRVUPW 

383 

CALL  SHELLS 

DRVUPW 

384 

ccr 

DRVUPW 

3B5 

cc  * 

+  *  PREPARE  TO  CALL  SUBROUTINE  UPWELL  BY  SETTING  NEEDED  PARAMETERS  DXVUPW 

386 

cc 

IN  VARIOUS  COMMONS. 

DRVUPW 

3B7 

cc 

*  SET  PARAMETERS  IN  AEROK  COWON. 

DRVUPW 

388 

READ  (5,315)  KVIS,  XPTYPE 

DRVUPW 

389 

WRITE (6, 31 7)  KVIS,  XPTYPE 

DRVUPW 

390 

cc 

*  SET  PARAMETER  IN  0PTIN1  COWON. 

ORVUPW 

391 

READ  (5,301)  RADSW 

DRVUPW 

39? 

WRITE(6,305)  RADSW 

DRVUPW 

393 

cc 

*  SET  PARAMETERS  IN  UPWELS  COWON. 

ORVUPW 

394 

UPWALT  *  0.0  S  UPWLON  •  PLON  S  UPWLAT  -  PLAT 

DRVUPW 

395 

READ  (5,315)  KNADIR,  NAZI 

DRVUPW 

396 

WRITE(6,319)  NNADIR ,  NAZI 

DRVUPW 

397 

cc 

*  SET  PARAMETER  IN  XYZCOM  COWON.  MOTE  WOLS  IS  KNOWN  AS  WOLS 

DRVUPW 

398 

cc 

IN  SUBROUTINE  ATMRAD  BUT  AS  NSPEC  IN  SUBROUTINE  TRANS. 

DRVUPW 

399 

WOLS  *  10 

ORVUPW 

400 

233 


cc 

*  SET  TWO  OF  THE  PARAMETERS  FOR  SUBROUTINE  UPWELl  ARGUMENT  LIST 

DRVUPW 

«01 

READ  (5,3151  MSM 

DRVUPW 

40? 

WRITE!6,321 )  MSM 

DRVUPW 

403 

SPCULR  *  .FALSE. 

DRVUPW 

404 

IF {  MSM  ,£Q.  2  )  READ  (5,301)  SPCULR 

DRVUPW 

405 

WRITE(6,322)  SPCULR 

DRVUPW 

406 

ccc 

DRVUPW 

407 

CC  *  ' 

»  *  LOOP  OVER  BROAD  BANDS  WITH  CALLS  TO  SUBROUTINES  SETALT  AND 

DRVUPW 

408 

cc 

UPWELL.  THE  PORTION  OF  THIS  LOOP  THROUGH  THE  CALL  TO 

DRVUPW 

409 

cc 

SUBROUTINE  UPWELL  (BUT  WITHOUT  THE  SUBSEQUENT  PRINT)  IS 

DRVUPW 

410 

cc 

PATTERNED  AFTER  THAT  IN  THE  GRC  PROGRAM  OlOOK. 

DRVUPW 

411 

cc 

USE  OF  PREV  IN  STATEMENT  LABELS  106  AND  107  MEANS  THAT  BOTH 

DRVUPW 

412 

cc 

BANDS  AND  BAND  INTERVALS  ARE  BEING  PROCESSED  IN  ORDER  OF 

DRVUPW 

413 

cc 

INCREASING  WAVENUMBERS. 

DRVUPW 

414 

c 

ON  THE  FIRST  CALL  TO  SUBROUTINE  PREV,  THE  INPUT  VALUE  OF 

DRVUPW 

415 

c 

LHBAND  IS  EQUAL  TO  LBAND,  THE  (1-FIELD)  POINTER  TO  THE  (2- 

DRVUPW 

416 

c 

FIELD)  LIST  HEADER  FOR  DAT  ASET- BN,  WHEREAS  THE  RETURN  VALUE  OF 

DRVUPW 

417 

c 

LHBAND  IS  THE  LAST  (3-EIELD)  LINK-WORD  FOR  DATASET-BN  AND  THE 

DRVUPW 

418 

c 

RETURN  VALUE  OF  NBN,  THE  DATASET-BN  INDEX  (OR  POINTER),  IS  THE 

DRVUPW 

415 

c 

Q-ARRAY  ADDRESS  OF  THE  FIRST  (NOT  ZEROTH)  WuPD  OF  DATASET-BN. 

DRVUPW 

420 

c 

SUCCESSIVE  CALLS  TO  PREV  RETURN  SUCCESSIVE  LINK  WORDS  AS  THE 

DRVUPW 

4?1 

c 

VARIA8LE  LHBAND  UNTIL  THE  LAST  CALL  (WHICH  RETURNS  ZERO  FOR 

DRVUPW 

422 

c 

THE  DATASET  INDEX  NBN)  RETURNS  THE  (2-FIELD)  LIST  HEADER  AS 

ORVUPW 

423 

c 

THE  WORD  FOR  LHBAND. 

DRVUPW 

424 

J  -  0 

DRVUPW 

425 

LHBAND  *  LBAND 

DRVUPW 

426 

106 

CALL  PREV  (  LHBAND,  NBN  ) 

DRVUPW 

427 

IF(  NBN  .EQ.  0  )  GO  TO  110 

DRVUPW 

428 

J  =  J  +  1 

DRVUPW 

429 

IE (  J  .GT.  5  )  GO  TO  110 

DRVUPW 

430 

I  *  0 

DRVUPW 

431 

c 

LBINT  IS  SAVED  FOR  CALL  TO  SUBROUTINE  UPWELL. 

DPVlJPU 

432 

LBINT  -  LINRV  BN (NBN) 

DRVUPW 

433 

LINT  =  LINRV  BN (NBN ) 

DRVUPW 

434 

10? 

CALL  PREV  (  LINT.  NBI  ) 

DRVUPW 

435 

IF (  NBI  .EQ.  0  )  GO  TO  108 

DRVUPW 

436 

1*1+1 

DRVUPW 

437 

IF (  I  .ST,  10  )  GO  TO  108 

DRVUPW 

438 

WW(I)  *  0.5*(  WHI  Bl(NBI)  +  WLO  BI(NBI)  ) 

DRVUPW 

439 

0W( I )  *  ABS (  WHI  B!(NBI)  -  WLO  BI(NBl)  ) 

DRVUPW 

440 

c 

ALAM(I)  AND  OLAM(I)  ARE  USED  ONLY  IN  PRINTING  THE  RESULTS  SO 

DRVUPW 

441 

c 

THAT  BOTH  WAVENUMBERS  AND  WAVELENGTHS  ARE  READILY  AVAILABLE. 

DRVUPW 

44? 

ALAM(I)  *  l.E+04/WW(I) 

DR  VUPW 

443 

DLAM(I)  -  ABS(  BNHI  BI (NBI )  -  BNLO  BI(NBI)  ) 

DRVUPW 

444 

GO  TO  107 

DRVUPW 

445 

108 

CONTINUE 

DRVUPW 

445 

NUAVE(J)  *  MINO(  I,  10  ) 

DRVUPW 

447 

NWAVEJ  *  NWAVE(J) 

DRVUPW 

449 

cc 

*  SET  ARGUMENT-LIST  PARAMETERS  FOR  SUBROUTINE  SETALT. 

DRVUPW 

449 

ALMAX  *  l.E+04/(  WW( 1 ) -0.5*0W( 1 )  ) 

DRVUPW 

450 

ALMIN  ■  l.E+M/f  WW ( NWAVEJ )  +0 . 5*DW( NWAVEJ )  ) 

DRVUPW 

451 

ALMIN  -  AMAX1  (  ALMIN,  2.0  ) 

DRVUPW 

45? 

ALMAX  *  AMIN1  (  ALMAX,  5.0  ) 

DRVUPW 

453 

CALL  SETALT  (  ALMIN,  ALMAX,  J  ) 

DRVUPW 

454 

cc 

NOTE  THAT  SUBROUTINE  SETALT  OUTPUTS,  THROUGH  UPVELS  COtWI, 

DRVUPW 

455 

cc 

NALT(O)  AND  ZKM(IJ.J). 

DRVUPW 

456 

cc 

•  NOW  READY  TO  CALL  SUBROUTINE  IIRWELI. 

DRVUPW 

45? 
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REWIND  8  ,  .  f 

CALL  U DWELL  (  MSM.  00,  WW,  DW,  SPCULR,  LBINT,  J  )  1 

CC  r 

CC  *  *  PRINT  RESULTS. 

REWIND  8  J 

40?  ™Ja|6(ihm?x.*upwelling  radiancf  results  from  program  DRVUPW/1  I 

SX.48X.33HIN  UNITS  OF  WATTS/ (CM**?  SR  CM-1)) 

WRITE(6,40i)  J,  NWAVEJ 

401  FORMAT  (1H0,5X,8HJ=JBAND=,I2,14H  NWAVE(  >)'•”> ..  1 

WRTTFI6  4061  (WW(L ),OW(L ),ALAM(L ).DLAM(L ),L=1 .NWAVEJ) 

406  FORMAT  (*0  FOR  THE  SPECTRAL  QUANTITIES  WE  HAVE  L=1  NWAWEJl 
STHE  QUARTETS  WW(L).  OW(L),  ALAM(L),  AND  DLAM<L)  *  / ( 5X ,1P8E1? .4 ) ) 
WRITE  (6,403)  M5M 

403  FORMAT  (1H0.5X , 5HMAT .  =  , 13 ; 

IC  *  0 

ICC  =  0 

NALTJ  *  NALT(J) 

00  475  11=1 .NALTJ 

WRITE (6,404 )  ZKM(II.J)  . 

409  FORMAT  (1H0.5X.10H ALTITUDE  =,F7.2.4H  KM) 

DO  470  JJ  =  1,NNAD1R 
WRITE (6, 404)  OJ 

404  FORMAT  (1H0.1 X,*NAD1R  3  =  *1? 

READ ( 8 )  (  (  UPRA0(KK.LL).XK*1.NAZ1  ),  LL=1 . NWAVEJ  ) 

405  FORMAT6  (4X^*N0  CL0UDSV2X  ,?'HAZIM'JTH  /  WAVENUMBER  .  ,5X  .10HUPR  AD(K,L 

i» 

ccc 

DO  480  KK*1 .NAZI  ,  ,  t  , 

WRITE(6.407)  XX,  (  UPRAD(XX,LL ) ,LL*1 ,NWA<EJ  ) 

407  FORMAT  (2X,  15  .1P10E12.4) 

480  CONTINUE 

CCC  IF (  (CLDFLG  .EO.  0.0)  -OR.  (ZM(IltJ)  .LT.  l?-0)  )  GO  TO  470 
READ(8)  (( (R010(XX,Ll  '  ,R0?5'XK,U  .!  ,rOt0[KK,Ll  I  ,R090(XX  ,LL ) , 

S  RIOO(KK.LL)),  XV.i.NAIIi.  l!=1, NWAVEJ) 

605  FORMAT&(lSol3X,*WITH  CL0UDS*/2X,21HAZIMUT*I  /  W-VENUM8CR  .5X.64HARC 
SV (X  ,L ) ,  ROIO'X.L).  R025(X.L).  R05CIX.L),  RO°OiX  ,L  ) .  R100(X,v.l) 

CCC 

IF  (  JJ  .FO.  1  )  ICC  =  ICC  *  1 
DO  680  KK=1 .NAZI 

WR!TE(6.6070)  XX , (ARCVA( ICC .JJ.LL ) ,LL =1 .NWAVEJ ) 

WRITE(6.6071)  XX.  (R010(XX,LL ) ,IL*1 .NWAVEJ) 

WRITE(6.607?)  XX.  (R025 (XX , LL ) .LI *1 .NWAVEJ 

WRITE(6.6073)  XX,  (R05C(XX,LL ) ,LL*1 .NWAVEJ) 

WRITE(6  ,6074 )  XX,  (P090(XX,LL  ),Ll 

WRITE(6,6075)  XX,  (R10C( XX ,LL ) ,LL*1 .NWAVEJ) 

6070  FORMAT  (IX.  14  ,  6H  ARCV  ,  1P10E12.4) 

6071  FORMAT  (IX,  14  ,  6H  R01O  ,  1P10F12.4) 

6072  FORMAT  (1 X.  I«  .  6H  R025  ,  1P10E12.4) 

6073  FORMAT  (IX,  14  ,  6W  R050  ,  1P10E12.4) 

6074  FORMAT  (IX,  14  ,  6H  ROOT  ,  1P10E12.4) 

6075  FORMAT  (iX.  1 4  .  GW  RK«  ,  1»10EI?.4) 


WRITE(6,6075) 

6070  FORMAT  (IX.  14 

6071  FORMAT  (IX,  14 

6072  FORMAT  (IX,  14 

6073  FORMAT  (IX,  14 

6074  FORMAT  (IX,  14 

6075  FORMAT  (iX.  14 
680  CONTINUE 

470  CONTINUE 
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DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DR'SJPW 

DRVUPW 

DRVUPW 

DPVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DRVUPW 

DPVU»W 

nnvijpw 

DRVUPW 
DRVUPW 
DR VUPW 
DRVUPW 
.  DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
C  DRVUPW 
DRV1JPV 
DRVU?w 
DRVUPW 
DR  VUPW 
DRVUPW 
DRVL'PW 
DRVUPW 
DRVUPW 
DRVUPW 
DRVUPW 
DPA"JPW 
DRVUPW 
DRVUPW 
DRYITW 
DRVUPW 
DP  V.lPW 
DRVL'PW 
DRVUPW 


HRITE(6.413) 

413  FORMAT  {1HO, IX, 'AZIMUTH-AVERAGED  RESULTS"/3X,*N0  CL0UDS»/2X,21H  N 
SAOIR  /  WAVENUMBER . ,5X,13HUPRADA( I ,J,L  )) 

00  465  JJ*1 ,NNAD  1R 

WRITE(6,411)  JO,  (  UPRADA(!!,JO,lL),Ll-l, NWAVEJ  ) 

411  FORMAT  (2X,  15  .1P10E12.4) 

465  CONTINUE 
CCC 

IF  l  (CIDFLG  .EQ.  0.0)  .OR.  (ZKM(II.J)  .LT.  12.0)  )  SO  TO  435 
WRIT£(6,613) 

613  FORMAT  (1H0,3X,*WITO  CL0UDSV2X.2LH  NADIR  /  WAVENU«ER.,5X,82HARC 
SVA(I, J,L),  R010A(I,J,L),  R025A(I,J,L),  ROSOA(I ,L ) ,  R090A( I , J.L ). 
i  RIOOA(I.J.L)) 

1C  =  IC  +  1 
DO  665  JJ-1.NNAD1R 

WRITE(6,6110)  JO.  («?CVA(1C.JJ,LL),LI=1, NWAVEJ) 

HRITE(6.6111)  JJ,  (R010A( IC, JJ ,LL )  ,LL*1  .NWAVEJ) 

WRITE(6,6112)  JJ,  (R025A(  IC ,  JJ  ,LL )  ,LL*1 .NWAVEJ) 

WRITE(6,6113)  JJ.  (R050A(IC,JJ,LL),LL*1,  NWAVEJ) 

WRITE(6,6114)  0.1,  (R090A(  IC,  J0,LL),LL*1  .NWAVEJ) 

WRITE  (6,6115)  JJ,  <R100A(IC, JO, LL),LL*1. NWAVEJ) 

6110  FORMAT  (IX.  14  ,  6H  ARCVA.1P10E12.4) 

6111  FORMAT  (IX,  14  ,  6H  R010A.1P10E12.4) 

6112  FORMAT  (IX,  14  ,  6H  R025A.1P10E12.4) 

6113  FORMAT  (IX,  14  ,  6H  R050A.1P10E12.4) 

6114  FORMAT  (IX,  14  ,  6H  R090A.1P10E12 .4) 

6115  FORMAT  (IX,  14  ,  6H  R100A.1P10E12 .4) 

665  CONTINUE 

475  CONTINUE 

WRITE(6,414) 

414  FORMAT  (1H0.10X, ‘AZIMUTH-  AND  NAD IR-AVER AGED  RESULTS  VS  ALTITUDE*) 
URITE(6,415) 

415  FORMAT  (1H0.1X,*N0  CL0UDS*/2X,17HALT  /  WAVENUMBER . .5X,«DPRADN( I ,1 , 
JJ)*) 

00  490  11=1 ,NAITJ 

WRITE(6.417)  ZKM(II.J),  (  UPRADN(II,LL,0),LL=1,NWAVEJ  ) 

417  FORMAT  (2X.F7.2.1P10E12.4) 

490  CONTINUE 
CCC 

IF (  CLOFLG  .EQ.  0.0  ]  GO  TO  109 
IC  *  0 

WRITE(6,615) 

615  FORMAT  (1H0,1X,*WITH  CLOUOS»/2X .17HALT  /  WAVENUMBER . ,5X,»ARCVN( I ,1 
1),  R010N( I ,L ) ,  R025N(I.L),  R050N(l,l),  R090N(I,L).  RIOON(I.L)*) 

DO  690  1I-1.NALTJ 

IF (  ZKM(II.J)  .LT.  12.0  )  GO  TO  690 
IC  »  IC  +  1 

WRITE(6,6170)  ZKM(II.J),  (  ARC VN( IC,LL),LL*1 , NWAVEJ  ) 

WRITE(6,6171)  ZKM(H.J).  (  R010N(  IC  ,LL ) ,U«1  .NWAVEJ  ) 

WRITE{6.6172)  ZXM(H.J),  (  R025N ( IC ,U  ) ,LL*1  .NWAVEJ  ) 

WRITE(6,6173)  ZKM(n,J),  (  R050N(  IC,U )  ,11-1  .NWAVEJ  ) 

WRITE(6,6174)  ZKM(Il.J),  (  R090N( IC ,U ) ,U*1  .NWAVEJ  ) 

WRITE(6,6175)  ZXM(II.J),  (  R100N(IC,LL),LL*1, NWAVEJ  ) 

6170  FORMAT  (IX,  F6.2  ,  6H  ARCVN.1P10E12.4) 

6171  FORMAT  (IX,  F6.2  ,  6H  R010N,  1P10E12 .4 ) 
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DRVUPW 
DRVUPW 
DRVUPW 
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6172  FORMAT 

(IX,  F6.2  ,  6h  R02SN.1P10E12.4) 

ORVUPH 

572 

6173  FORMAT 

(IX.  F6.2  .  6H  R050N.1P10E12.4) 

DRVJPW 

573 

6174  FORMAT 

(IX.  F6.2  ,  6H  R090N.1P10E12 .4) 

DR  YU  PM 

574 

6175  FORMAT 

(IX,  F6.2  ,  6R  R100N.1P10E12.4 1 

DRVUPW 

575 

690  CONTjNUE 

DftVUFii 

576 

109  GO  TO  106 

DR  YU  PH 

5/7 

110  CONTINUE 

DR  YU  PH 

578 

200  STOP 

DR  YU  PH 

579 

CC 

DR  YU  PH 

580 

300  FORMAT 

(  8E10.0  ) 

DR  YU  PH 

581 

301  FORMAT (l 10) 

ORVUPH 

582 

302  FORMAT 

(1H0.1X,  6HFACT  *,F6.2) 

DRYUPH 

583 

303  FORMAT 

(  IP  6E15.5  } 

ORVUPH 

584 

304  FORMAT 

(1H0.1X,  9HTRNS0PT  *,L2) 

ORVUPH 

585 

305  FORMAT 

(1H0.1X,  7HRADSV  -.12) 

ORVUPH 

586 

315  FORMAT 

(  3110,  3E10.0  ) 

ORVUPH 

587 

316  FORMAT 

(1H0.1X,  6HIYRS  =,I3,7X,7HIMONS  », I3.7X.7HIDAYS 

,I3,7X,4HZ  ORVUPH 

588 

ST  «,F6. 

3.4X.5HGC0  =,F8.3,3X,5HGE0  -.FB.3) 

ORVUPH 

589 

317  FORMAT 

(1H0.1X,  6HKVIS  =, ! 2,7X,8hKPTYPE  -.12) 

ORVUPH 

590 

318  FORMAT 

( 1  HO, IX,  8HCLDPLG  -,F3.0) 

ORVUPH 

591 

319  FORMAT 

(1H0.1X,  SHNNADIR  *,I2.7X,6HNAZI  -,I2) 

DRVUPH 

592 

320  FORMAT 

(4E10.0,  110) 

ORVUPH 

593 

321  FORMAT 

(1H0.1X,  5HMSM  -.12) 

ORVUPH 

594 

322  FORMAT 

(1H0.1X,  3HSPCULR  «,12) 

DRVUPH 

595 

323  FORMAT 

(1H0.1X.502S) 

ORVUPH 

596 

END 

ORVUPH 

597 

t 


FUNCTION  ACCUM(  I TYPE,  XI,  X2,  FI,  F2,  A,  B  ) 

ACCIRX 

2 

■" 

ACCUM 

3 

CLJ 

FUNCTION  ACCOM  INTEGRATES  BETWEEN  X'A  AND  X=8  A  FUNCTION  F(X) 

ACCUM 

4 

CLJ 

GIVEN  AT  THO  POINTS  Xl  AND  X2  BY  LINEAR,  LOGARITHMIC,  OR 

ACCUM 

5 

CLO 

PO-ER-LAW  INTERPOLATION,  CORRESPONDING  TO  ITYPE-1,2,3  . 

ACCUM 

6 

CIO 

RESPECTIVELY.  LINEAR  INTERPOLATION  IS  ASSUMED  IN  CASE  THE 

ACCUM 

7 

CLO 

other  methods  would  fail. 

ACCUM 

8 

C 

ACCUM 

9 

GO  TO  (  1,  2,  3  ),  I TYPE 

ACCUM 

10 

1 

ACCUM  •  .5  /  (  X2  -  XI  )  *  (  F2  *  <(  B  -  XI  )~2  -  (  A  -  XI  )**2  )  ACCUM 

11 

1  -  FI  *  ((  B  -  X2  )«2  -  (  A  -  X2  )**2  )) 

ACC'JM 

1? 

RETURN 

ACCUM 

13 

2 

IF  {  FI  *  F2  ,LE.  0.  )  GO  TO  1 

ACCUM 

14 

IF  (  ABS(  1.  -  FI  /  F2  )  .LT.  0.01  !  GO  TO  1 

ACCUM 

15 

ALNR  *  ALOG(  F2  /  FI  ) 

ACCUM 

16 

ACCUM  *  FI  /  ALNR  *  (  EXP(  (  B  -  XI  )  /  (  X2  -  X]  )  *  ALN9  )  - 

ACCUM 

17 

1  EXP(  (  A  -  XI  )  /  (  X?  -  XI  )  •  LLNR  ))  *  (  X2  -  XI  ) 

ACCUM 

18 

RETURN 

ACCUM 

19 

3 

IF  (  Xl  *  X2  .LE.  0,  .OR.  FI  »  F2  .LE.  0.  )  GO  TO  1 

ACCOM 

20 

EVAL  -  AL0G(  F2  /  FI  )  i  ALOGt  X2  '  Xl  ) 

ACCUM 

21 

IF  (  AB5{  EVAL  .GT.  10.  )  GO  TO  1 

ACCUM 

22 

ACCUM  ■  FI  /  ((  EVAL  +  1.  )  •  X1«EVAL  )  *  (  B«(  EVAL  +  1.  )  - 

ACCUM 

23 

1  A**(  EVAL  ♦  1.  )  ) 

ACCUM 

24 

RETURN 

ACCUM 

25 

END 

ACCIP* 

26 
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ccc 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 

CL  J 
CLJ 
CL’ 
CIO 
C>.J 
CU 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
'1.0 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 
CLJ 


SUBROUTINE  AEROSOL (  HCM.IAMDA.XKSCT.XKABS.GBAR  )  AERSOL 

AERSOL 

SUBROUTINE  AERSOL  COMPUTES  ATTENUATION  COEFFICIENTS  FOR  AERSOL 

SCATTERING  AND  ABSORPTION  AND  THE  ASYMMETRY  FACTOR  (AVERAGE  AERSOL 

COSINE  OF  THE  SCATTERING  ANGLE)  DUE  TO  ATMOSPHERIC  AEROSOLS.  AERSOL 

THIS  PROGRAM  IS  BASED  DIRECTLY  ON  THE  WORK  OF  E.F.  SHETTLE  AND  AER5CL 

R.W.  FENN  OF  AFGL  AND  USES  A  PORTION  OF  MATERIAL  WHICH  WILL  AERSOL 

APPEAR  IN  A  FORTHCOMING  DOCUMENT  (AFGL-TR-77-XXXX),  1 'MODELS  OF  AERSOL 
THE  ATMOSPHFRIC  AEROSOLS  AND  THEIR  OPTICAL  PROPERTIES"  BT  E.P.  AERSOL 
SHETTLE  AND  R.W.  PENN,  AERSOL 

IN  SUBROUTINE  AERSOL,  THE  WAVEl  ENGTH  REGION  IS  RESTRICTED  TO  2-5  AERSOL 

MICRONS  AND  PROPERTIES  ARE  PRESENTED  FOR  AVERAGE  SEASONAL  CONDI-  AERSOL 

TIONS  ONLY  AND  FOR  ALTITUDES  LESS  THAN  IOO  KM.  THE  ALTITUDE  AERSOL 

RECION  FROM  SEA  LEVEL  TO  100  KM  IS  DIVIDED  INTO  FOUR  REGIONS...  AERSOL 

A  BOUNDARY  LAYER  0-2  KM  AERSOL 

B  TROPOii  HERE  2-9  KM  AERSOL 

C  STRATOSPHERE  9-30  KM  AERSOL 

D  UPPER  ATMOSPHERE  30-100  KM  AERSOL 

IN  THE  TROPOSPHERE  AND  THE  BOUNDARY  LAYER  REGION,  PROPERTIES  ARE  AERSOL 
COMPUTED  FOR  ONE  OF  FIVE  VISIBILITY  RANGES  (50.23,10,5,2  KM'  AND  AERSOL 
IN  THE  BOUNDARY  LAYER,  FOR  ONE  OF  THREE  TERRAIN  TYRES  (RURAL.  AERSOL 
URBAN,  AND  MARITIME) .  IN  THE  STRATOSPHERE  A  CONTRIBUTION  FROM  AERSOL 
VOLCANIC  AEROSOLS  IS  ALSO  ADDED  TO  THAT  FROM  BACKGROUND  AEROSO-S.  AuRSo.. 
THE  ABSORPTION  COEFFICIENTS  ARE  COMPUTED  AS  A  PRODUCT  OF  A  SCALE  AERSOL 
FACTOR  ( EQUAL  TO  THE  AEROSOL  EXTINCTIONS  AT  0.55  MICRONS)  FOR  THE  AERSOL 
DIFFERENT  MODELS  TIMES  ATTENUATION  COEFFICIENTS  FOR  THE  AERSOL 

SCATTERING,  ABSORPTION  AND  THE  ASYW4ETRY  FACTOR  AS  FUNCTIONS  OF  AERSOL 

WAVELENGTH  NORMALIZED  TO  THE  EXTINCTION  COEFFICIENT  AT  0.55  AERSOL 

MICRONS.  AERSOL 

AERSOL 

AERSOL 

VERSION  1  OF  THE  V1SI0YNE- SUPPL 1 EU  AERSOL  ROUTINE  WAS  RECEIVED  ON  AERSOL 
10/13/77.  WE  HAVE  LEFT  GBAR,  THE  ASYWTRY  FACTOR,  IN  imE  ARSU-  AERSOL 
MENT  LIST  SUT  Hi/E  COUNTED  OUT  THE  STATEMENTS  WHICH  EVALUATE  AERSOL 
GBAR  BECAUSE  OUR  TREATMENT  OF  AEROSOL  TRANSMITTANCE  DOES  NOT  USE  AERSOL 
IT.  OUR  TREATMENT  PROVIOES  FOR  ATTENUATION  BY  ABSORPTION  AND  AERSOL 

SCATTERING  OUT  OF  THE  BEAM  BUT  FOR  NO  SCATTERING  INTO  THE  BEAM.  «'RSOL 
IT  WAS  OUR  UNDERSTANDING  THAT  G.E. TEMPO  (EWING,  10/19/77)  ALSO  AERSOL 

PLANNED  TO  ACCOUNT  ONLY  FOR  SINGLE  SCATTERING  OF  AEROSOLS  (AS  AEosOl 

OPPOSED  TO  ACCOUNTING  FOR  MULTIPLE  SCATTERING  WITHIN  NUCLEAR  AERSOL 

CLOUDS).  ON  THIS  BASIS  WE  INTEGRATED  SUBROUTINE  AERSOL  INTO  OUR  AERSOL 

UPWEt  LING  NATURAL  RADIATION  MODEL  AND  INTERFACED  IT  WITH  THE  GET  AERSOL 

TRANSMISSION  MODEL.  AFRSOl 

AERSOL 

OUR  COPY  OF  VERSION  2  OF  AERSOL  IS  DATED  2/13/78.  WE  HAVE  UPDATED  AERSOL 

OUR  VERSION  1  WITH  THE  SUB5TANTIVE  CHANGES  IN  VERSION  2  BUT  DID  AERSOL 

NOT  INCLUDE  THE  NONSUBSTANTIVE  CHANGES  IN  SPELLINGS.  AERSOL 

AERSOL 

NOTE... WE  HAVE  ALSO  MADE  CORRECTIONS  PERTAINING  TO  THE  SEARCH! NFi  AERSOL 

OF  THE  WAVELENGTH  ARRAY  IN  DO-IOOPS  6,  7,  9.  AND  10.  AERSOL 

IF  LAMDA=WAVE(12)-5.0  MICRONS  ERRONEOUS  VALUES  OE  XKSCT  AERSOL 

AND  XKABS  WOULD  BE  RETURNED  TO  THE  CAlLING  PROGRAM.  AERSOL 

AERSOL 

VERSION  3  (06/29/78)  PROVIOES...  AERSOL 

1.  THE  ALTITUDE  IN  THE  ARGUMENT  LIST  TO  BE  IN  CENt]MFTFRS  AERSOL 

INSTEAD  OF  KILOMETERS.  AFRSOL 

2.  THE  SCATTERING  AND  ABSORPTION  ATTENUATION  COEFFICIENTS  TO  BE  AERSOL 


2 

3 

a 

5 

6 

7 

8 
9 

10 

11 

1? 

13 

la 

15 

16 
17 

is 

19 

20 
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23 

24 

25 
?c 
27 
78 

29 

30 
3! 
3? 
33 
3a 
36 

36 

37 
36 

39 

40 
4! 
42 
4? 
4« 

45 

46 

47 

48 

49 

50 
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54 

55 

56 

A? 

58 
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NOTE. 
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ClJ 
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IN  1/CM  IN  STEW  OF  l/XM. 

VERSION  4  (01/13/7?)  P*?^ES;U  5  90S  NONZERO  VALUES  OF  THE 

3  A  TEST  (2.0  -LE.  LAW'  -Lt-  3- 
‘  OUTPUT  PARAMETERS.  rOMPUTER  MODEL  FOR  ATMOSPHERIC 

INPUT  parameters 

WGWE"IfH  r ALTITUDE  ABOVE  SEA  LEVEL.  CM 
IAMOA  =  WAVELENGTH.  MICRONS 

““ “  TSMiKi5E>"",*jr-  •  s 

®SgSSJ!KWffi:»5 

*  «  CORRESPONDS  TO  VISIBILITY  RANjE  = 

«  6  CORRESPONOS  TO  VISIBILtTV  *W»GE 

XTVPE  =  TERRAIN  PARAMETER  (FOR  H=0-2  X  ) 

*  1  TERRAIN  -  rural 

,  2  TERRAIN  -  URBAN 

=  3  TERRAIN  1  MARITIME 

OUTPUT  PARAMETERS 

WGW*«a=T  SCATTERING  ATTENUATION  COEFEICIENT  1/cm 
XXABS  »  ABSORPTION  ATTENUATION  COEFFICIENT.  1/C 
GBAR  -  FT-TWETRY  FACTOR 


VAAIA?'  ES  IN  DATA  ARRAYS 
WAVE  ID 


WAVELENGTH  ARRAv  FOR  ABSORB.  ASYM.  AND 

.  NORMALIZED" ABSORPTION  ATTENUATION 
COEFFICIENTS. 

=  ASYWETRY  FACTORS. 

=  NORMALIZED  SCATTERING  ATTENUATION 
COEFFICIENTS. 

SIGNIFY  ALTITUDE  REGIONS. 

’  H-O- ?  km. 

1?DE*  “  „  ,  NORMALIZED  SCALE  factor  FOR  ALTITUDE 

.  regions  *s  FPLLOIi«u 

SCALSi.)  BOUNDARY  LAYER 

Z*G  troposphere 

34<  STRATOSPHERE,  VOLCANIC 
INDEX  1  REFERS  TODALmUDE^OR  REGIONS  1 1  WO  ?.  SCA'^IS 

WMTSfflSS.W'SS'-S-" 

DIMENSION  Hm(4'.SCALl!4,5J.WAVE'12'..SCATArl?.3'.ABS0BA  1  ,4  . 


ABSOBAt I , J1 >  •  - 
ABSC3DU) 
ASYMA(I.O),.. 
ASYMD( I ) 
SCATAU.O),.. 
SCATO!  5  3 
A.B.C,  AND  0 
INDEX  1 
INDEX  0 


AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSU 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
j,rscfv 

AERSOL 
AERSOL 
AERSOL 
AERSOL 
AE-SO. 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERSOL 
AERST. 
AE°SO. 
AERSO’. 
AERSO: 


69 

60 

61 

6? 

63 

64 
66 
66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
BO 
81 
82 

83 

84 
86 
86 

87 

88 

89 

90 

91 
°? 

93 

oe 

95 

96 
9' 

9E 

99 
100 
1U 
lpR 
1C 
104 
\9E 
I  OF 

107 

108 
109 
11" 
111 
II? 

113 

114 


1  SCATB(12),ABS068(12).  SCATC(12,2), 

2AB$0BC(12,2),  SCATD(12),ABSOBO(i:), 

3  SCAL2<8,2),SCAL3(22),SCAL4S22).SCAL5{151 
CC  DIHENSIOAr  ASrMA(12,4),  ASTOU2).  A$rMC{12.2),  ASYWX12) 
C0L9ON/AER0K  /  KVIS,  6PTYPE 
REAL  LAXOA 

DATA(WA7E(  1  ),  1*1 ,12) 72.0,2, 25 ,2. 5, 2. 7, 3.0, 3.2, 3. 392, 3, 5,3. 75,4.0  4 

1.5, 5.0/ 

DATA(Hi7E(I).l^i,4',/a.0,1.0.1.5,2.0/ 

OATA( SCALl  ( 1,1 ), 1=1,4 )/6. 956-2,2. 586-2,1. 61 E- 2,9. 70E- 3/ 
0ATA(SCAli;i,2),t=l,4)/1.57E-l,9.9O£-2.7.92E-2,6.21E-2/ 
DATA(SCALl(I,3),l*l,4)/3.72E-l,3.72E-l,3.72E-l,6.21E-2/ 

DATA(  SCALl (!,*), 1*1, 4 1/7.57E- 1,7. 57E-1 ,7 . 57E-1 ,6 .21E-2/ 

DATA(SCAL1  ( 1 , 5) , 1*1,4)71 .88, 1 . B8, 1 .88, 6. 21E-2/ 

DATA( SCATA( I,1),I=1,12)/1 .312E-1 ,1 . 1406-1 ,1 .016E-l,7.835t-2, 
18.330E-2,9.339E-2,9.251E-2,9. 598t-2,9.394E-2,9.001E-2, 
28.011E-2.7.672E-2/ 

OATA(ABSOBA(I,l),I*l,12)/2.763E-2,2.894E-2,2.932E-2,6.559E-2, 
13.696E-2.2.046£-2,1.979E-2.1.583E-2,i.35?E-2.1.465E-2. 
22.219E-2.2.033E-2/ 

OATA(ASYMA( I. 1), 1*1, 12)/. 715,. 7306,. 7459,. 7863,. 7714,. 7491,. 7456, 

1 .7316 . . 7337 . . 7390. . 7560 . . 7636/ 

DATA(SCATA(I,2),l*l,12)/1.129E-1.9.833E-2.8.758E-2,7.286E-2. 

17 .2O9E-2,7.572E-2,7.383E-2,7.SO0E-2,7.?58E-2.6.939E-2, 
16.220E-2.5.900E-2/ 

DATA(A8S0BA( I ,2 5,1*1, 12 )/l .339E- 1,1.2406-2,1 .157E-1 ,1 .288E-1 
1 .1.0756-1,9 ,346E-2,8.966E-2,8.610£-2,8.063E-2,7.739E-2, 

27 .474E-2.6.824E-2/ 

DATA(  ASYHAj I ,2 ),1-1 ,12) /. 649,. 6609,. 6730, . 6900, . 6937 , .6894, 

1 .6907 . . 6841 . .6887 .. 6943 .. 7099. .  7193/ 

DATA ( SCATA( I, 3 ),[=1, 12 )/7. 1596- 1,6,7726- 1,6.0936- 1,4. 399E-1, 
13.271E-1,4.594E-1,5.670E-1,5.849E-1,5.645E-1,5.?69E-1. 
24.520E-1.4.072E-1/ 

DATA(ABS06A( I, 3), 1=1.121/1. 3806-2, 1.06 26-2,2.1256-2,9.1346-2, 

13. 3276-1. 2. 2086-1, 8. 0046-2, 4. 1646-2, 1.718E-2. 1.9856-2, 
24.2476-2,3.6606-2/ 

OATA(ASYMA(I, 3), 1*1, 12)/. 7857, .7931.. 8114,. 8611,. B205,. 7724 

1..  7448.. 7413.. 7475.. 7530.. 7630.. 7645/ 

DATA  (SCAL2(I,1), 1*1,8)  /  9. 706-3,9. 25E-3,8.32E-3, 7. 086-3,5. 63E-3, 
1  4.26E-3.2 .39E-3.1 .40E-3  / 

DATA  f SCAL?( 1 ,2/, 1*1,8)  /  6,21E-2,3.09E-2,1.53E-2,7.08E-3,5.63E-3, 
1  4.26E-3,2.29F-3,1.40E-3  / 

DATA(SCATB( I ), 1*1,12)76. 761E-2.5 ,0O5E-2,3.797E-2,2.650E-2, 
1?.394E-2,2.350E-2,2.133E-2,2,174E-2,1 .838E- 2,1 .56*6-2, 

21 .159E-2.8.487E-3/ 

DATA(AB50BB( I), 1*1, 12)/1.092E-2,1.146E-2, 1.1576-2, 3. 891E-2, 

11. 5896-2,6. 7696-3,6 .48  IE- 3,4. 826E- 3 ,4. 01 76- 3,4 .343E-3, 
27.0136-3,6,2336-3/ 

CC  DATA(ASYMBU),  1*1. 12)/.  58ZB..  5688,. 5551,. 5427, .5305, 

CC  1.5236,. 5166,. 5089,. 4999,. 4910,. 4739,. 4614/ 

DATA  (SCAL3! 1 ),1*1,22)  /  1 .40E-3.9.64E-4.7 .57E-4.6.53E-4.5 .70E-4, 

1  5.44E-4.5, 19E-4.5. 12E-4.5. 13E-4 ,5.416-4 .5.37E-4, 5.07E- 4, 

2  4.286-4,3. 586-4,2. 71 E-4 ,1 . 94E-4 ,1 .41E-4 ,1 .03E-4, 7.87E-5, 

3  5.94E-5.4.66E-5,3.32£-5  / 

DATA  (SCAl4(i),l-1.22)  /  1 .406-3.1 . 62E-3 ,1 . 95E-3 .2 .336-3,2. 77E-3, 

1  2.89E-3,2.92E-3,2.74E-3,2.46£-3,2.10E-3,1.71E-3,1.35E-3, 

21. 096- 3, 8, 60E-4, 6. 606-4,5 .156-4,4. 10E-4 ,3.20E-4,?.51E-4, 


CC 

CC 


CC 

CC 


CC 

CC 


AERSOL 

116 

AERSOL 

117 

AERSOL 

118 

AERSOL 

119 

AEROKO 

2 

AERSOL 

121 

AERSOL 

122 

AERSOL 

123 

AERSOL 

124 

AERSOL 

125 

AERSOL 

126 

AERSOL 

127 

AERSOL 

128 

AERSOL 

129 

AERSO. 

i?0 

AERSOL 

131 

AERSC. 

132 

AERSOL 

133 

AERSOL 

13* 

AERSOL 

135 

AERSOL 

136 

AERSOL 

137 

AER90L 

138 

AERSOL 

139 

AERSOL 

140 

AERSOL 

141 

AERSOL 

142 

AERSOL 

143 

AERSOL 

144 

AERSOL 

145 

AERSOL 

146 

AERSOL 

147 

AERSOL 

148 

AERSOL 

149 

AERSOL 

150 

AERSOL 

151 

AERSOL 

1S2 

AERSOL 

153 

AERSOL 

1S4 

AERSOL 

155 

AERSOL 

156 

AERSOL 

157 

AERSOL 

153 

AERSOL 

15« 

AERSOL 

160 

AERSOL 

161 

AERSOL 

16? 

AERSOL 

163 

AERSOL 

164 

AERSOL 

165 

ARRSOL 

166 

AERSOL 

167 

AERSOL 

168 

AERSOL 

169 

AERSOL 

170 

AERSOL 

171 

AERSOL 

172 

240 


32.10E-4.1.24E-4.7.60E-5/ 

AERSOL 

173 

0ATA{SCATC(I,l),I=l,12)/4.0SS£-2,2.570E-2,1.56OE-2,9.3aeE-2. 

AERSOL 

174 

16.321E-j,6.003£-3,6.274£-3,6 .232E-3.5. 103E-3.4.030C-3. 

AERSOL 

175 

22.420E-3.1 .449E-3/ 

AERSOL 

176 

OATA(ABSOSC( 1,1), I*l,12)/1 .282E-3.1 . 574E-3.2. 894E-3.4.03OE-3, 

AERSOL 

177 

l$.878£-2,7.671£-2,8.300£-2,7.917£-2.6.019E-2,5.391E-2, 

AERSOL 

178 

24.552E-2.4.132E-2/ 

AERSOL 

179 

cc 

OATA(ASTMC( 1,1), 1*1, 12)/. 3223. .2686,. 2233,. 1916,. 1580.. 1416. 

A3  SOL 

180 

cc 

1.1299,. 1242,. 1108,. 0983,. 0780,. 0629/ 

AERSOL 

lei 

DATA! SCATCf 1,2),I *1 ,12)/1.353E-1 ,1 .020E-1 ,7 . 792E-2.6. 343E-2, 

AERSOL 

182 

15.126E-2,4.262E-2,3.761E-2,3.435E-2,2.913E-2.2.394E-2, 

AERSOL 

183 

21.775E-2.1.204E-2/ 

AERSOL 

184 

OATA(ABS08C(I,2),I*l,12)/1.0l9£-2.8.668E-3,8.429E-3,8.424E-3, 

AERSOL 

IBS 

19.493E-3.9.361E-3.7.431E  -3,6.537E-3,4.B79E-3,3.487E-3, 

AERSOL 

186 

23.186E-3.3  347E-3/ 

AERSOL 

187 

cc 

OATA(ASYMC( I, 2). 1*1, 12)/. 5561, 5255,. 4958,. 4729,. 4401,. 4196,. 

AERSOL 

188 

cc 

14015.. 3915.. 3699.. 34 90,. 312S,. 2773/ 

AERSOL 

189 

DATA(SCATO( 1 ) , I *1,12 ) /4.822E-1 ,4. 160E-1.3. 574E-1 ,3. 162E-1, 

AERSOL 

190 

12.645E-1 ,2. 367E-1.2. 147E-1 ,2.042E-1,1 .845E-1 .1.700E-1 , 

AERSOL 

191 

21.509E-1.1.378E-1/ 

AERSOL 

192 

0ATA(ABS080( 1 ), I *1,12) /6. 161 E- 2,7. 539E-2.8. 94 3E- 2,1.0056-1 , 

AERSOL 

193 

11.161E-1,1.254E-1,1.331E-1,1.368E-1,1.435E-1,1.472E-1; 

AERSOL 

194 

21.463E-1.1 .373E-1/ 

AERSOL 

195 

cc 

DATA(ASTH)U). 1-1,12)/. 6989,. 7046.. 7099..  7133,. 7159,. 7155, 

AERSOL 

196 

cc 

1.7134,. 7116,. 7058,. 6986,. 6827,. 6687/ 

AERSOL 

197 

DATA{  SCAL5( I )  ,1  *l,15)/3. 32E-5.1 .65E-5,8.00E-6,4.02E-6. 

AERSOL 

198 

12.10£-6.1.09E-6,5.7fl£-7,3.05£-7.1.60E-7,6.95E-8,2.90E-8. 

AERSOL 

199 

21.20E-8,5.10£-9,2.15E-9,9.30E-10/ 

AERSOL 

200 

c 

AERSOL 

201 

c 

AERSOL 

207 

c 

AERSOL 

203 

1F(  (LAMDA  .SE.  2.0)  .AND.  (LAMOA  .IE.  5.0)  )  GO  TO  1000 

AERSOL 

204 

HRITE(6.90C)  LAMDA 

AERSOL 

205 

900  FORMAT  (IX  -SUBROUTINE  AERSOL  HAS  BEEN  ENTERED  WITH  LAMDA  —1PE12.  AERSOL 

206 

J5*.  WHICH  IS  OUTSIDE  THE  ALLOWED  RANGE  (2.0  TO  5.0  MICRONS).*/* 

ZE  AERSOL 

207 

IRO-VALUES  have  BEEN  ASSIGNED  TO  THE  OUTPUT  PARAMETERS  XKSCT  AND 

XK  AERSOL 

208 

SABS.*) 

AERSOL 

209 

GO  TO  11 

AERSOL 

210 

1000  CONTINUE 

AERSOL 

211 

H  *  1.0E-05  *  HCM 

AERSOL 

212 

IF(H  AT.  0.)  STOP 

AERSGL 

213 

IF(  H.GT.100.  )  GO  TO  11 

AERSOL 

214 

1F(  H.GT.  30.  ]  GO  TO  4 

AERSOL 

215 

IF (  H.GT,  9.0  )  GO  TO  3 

AERSOL 

216 

IF(  H.GT.  2.0  )  GO  TO  2 

AERSOL 

217 

c 

AERSOL 

218 

c 

ALTITUDES  KM 

AERSOL 

219 

c 

AERSOL 

220 

1  DO  8  J*2,4 

AERSOL 

271 

IF (  H.GE.HJTE(J)  )  SO  TO  8 

AERSOL 

222 

COMON=(H-HITE( J-l ))/(H[TE(0)-HITE(0-l ) ) 

AERSOL 

223 

ASCAL*SCAL1(0-1,KV1S)-(SCAL1  (O-l.KVI  S)-SCAL1(  J.KVIS)  )*COK)N 

AERSOL 

224 

GO  TO  5 

AERSOL 

225 

8  CONTINUE 

AERSOL 

226 

IF (  H.EQ.2.0  )  ASCAL  -  SCAL1(4,KV1S) 

AERSOL 

227 

5  00  6  J*2,12 

AERSOL 

228 

lf(  LAMDA. ST.WAVE(J)  )  90  TO  6 

AERSOL 

229 

241 


COMO*  {LA1!>»-my£(J-n)7tW*YEI  J',-WAVE(J-1M 

<KSCT  =  SC9TA(  j-l,KP~YPE)-!  SCOTS'  0-1.  KPTYPE'-  $C  tUI  C.AP'YPn  i*C0*TlN 
X5A8S=AsS03A:  J-1.KPTyPEM46$0BA(  M.KOTYPf'-AfiBOBSiJ.rPTYPt'! 
1'COMOS 

CC  GBSR  =  SS'fwSf  J-l.SFTYPr ' -  SS»M.A,  J-l.XPTYPFl-ASYMA' J.KPTYPtM’COMON 
GO  TO  100 

6  CONTINUE 

c 

C  AlT!TuoE=>.q  *« 

C 

2  )H=h-1.0 
HI =IH*I 

J  =  2 

if f  fvis.eq.i  i  j  .  l 

IF {  H.NE.9.0  1  GO  TC  1? 

ASCAL  =  SCAL2'b,J) 

GO  TO  13 

12  ASCAL  =  SCAL?'IH,0»-(5CAL2!lH,J!-SCAL2fIH«l,J)l*fH-«!' 

13  DO  7  J=2,l? 

if;  la“ds.gt.wave(j>  i  go  to  ? 

C0*A0N=  riAHOA-HAVEf  J-l ' ) /  ( WAVE!  JUWAVE{  J-in 
XKSCT=SCATB(  J-r-<5CATBIO-ll-SCATB(J))*CO*ON 
T<ABS=A8S0BS;  J-1MABSOBB!J-Il-ABSOBS'J)KOMON 
CC  GBA^ASYIB!  J-U-(ASy«B(  J-11-ASYMS;  J)1*COMON 
GO  TO  100 

7  CONTINUE 

c 

:  ALT1TUDE=9-3P  am 

c 

3  lH=H.g.e 
HI *!K+8 

IF (  h.nE.30.  1  GO  TO  14 
FBG  *  $CAL3( 22) 

VOlC  =  SCALS(22; 

GO  TO  15 

14  FBG  =  SCAL3,1H'-(SCA13!IH>-SCAl3'IH*1'1*'H-“!'. 

VOLC^SCALS;  IH1-(SCAL4'IH)-SCAH!IM*1*1*.’m-hm 

15  DO  9  J=2,l2 

1F(  LA*DA.G\WAYE!J).  )  GO  TO  0 

COMCN* ! L AMOS-WAVE  I J- 1 ) 1 1 ' NAVE  f  J' -V»YE 1 J-l 1 ' 

«*SCT1*SC»TC!J-1,11-(SCATC(  J-1,1 '-SC4Tl'vM''*COMON 

KASCT2=S.CATC(G-1,2U(SCATCM-:,21-5CAtC312I'*C.O**.'N 

*4AP5!=4BS0BCI  J-l,l)-(A?S09C'U-l,l)-A?50BC;  J,1  ''*CC*N3N 

XKAB52*AESOBC(  J- 1 , 2 ) - ( ABSOBC !  J-l  ,2)-ABS0BC(  J,2' 1*C0*WN 

XASCT»XASCT1*FBG**A5CT2«V0LC 

XkA5S=XXAB51*FBG*XKABS?*VOLC 

CC  3SAR 1  'ASYMC I  J.  1 ,1 '  - ;  ASYMC I  J.  1  ,1 1  -  A5YMC i  0 ,1 1  '•cws 
CC  GBAS2=ASYHC(  J-l,?'- !*SY:C'J-l,21-ASYyr  I  J,?U*CO*40N 
CC  GBAR=(XKSCT1*G3A91*XXSCT2*G5A=2'/,XKSC,1*XA5Ct?' 

GO  TO  105 
9  CONTINUE 
r 

C  ALTITUDE  IS  GREATER  THAN  30  S“ 

C 

4  IH= ( (M-30.0) 75 .0) *1 .01 
Hi -( IH*5>+25 

if;  h.ne.ioo.  i  go  to  16 


GO  TO  14 


ASCAL  =  $CAL5f 15) 

AERSOL 

707 

GO  TO  17 

AE°SPL 

2RP. 

16 

ASCAL  =  SCAl5( IH)- ( SCAL5{ IH 1-SCAL5! IH+1 ) )*I H-HI ) /5 .0 

AERSOL 

289 

17 

00  10  J*2,l? 

AERSOL 

?yo 

I F {  LAWPA.GT.WAVE(.I)  )  GO  TO  10 

AERSOL 

?91 

COMON = ( t AMDA-WAVE  f  J-l ) 1 /(UAVEf  Jl-WAVEf  J-l 1 ! 

APR  SOL 

?R? 

XKSCT “SCATOf  J-l MSCATrUJ-l )-5CATDf J))*COMON 

AERSOL 

293 

XKABS=ABSOBD(J-!)-(ABSOBD!J-n-ABSOBD(JM*COHON 

AERSOL 

29A 

CC 

GBAR=ASYMD(J-1)-(ASYMD( Jl)-ASYMD(J) l*COMON 

AERSOL 

?95 

GO  TO  100 

AERSOL 

296 

10 

CONTINUE 

AERSOL 

29  7 

100 

XiiABS  =  XKABS*ASCAL 

AERSOL 

29R 

XK$CT=XKSCT*ASCAL 

AERSOL 

299 

GO  TO  105 

AERSOL 

300 

11 

XKABS  *  0.0 

AERSOL 

301 

XKSCT  =  0.0 

AERSOL 

30? 

CC 

GBAP  =  0.0 

AERSOL 

303 

105 

XKABS  =  1.0E-05  *  XKABS 

AERSOL 

30A 

XKSCT  ■=  l.OE-05  *  XKSCT 

AERSOL 

305 

RETURN 

AERSOL 

306 

END 

AERSOL 

307 

SUBROUTINE  AGAGE0(HA1 ,GC1 ,GL 1 ,AZ?1 ,GA?1,HA?,GC?.GL?) 

AGAGEO 

? 

CCC 

AGAGEO 

3 

C 

SUBROUTINE  AGAGEO  (A  MODIFIED  HARC  ROUTINE),  GIVEN  THE 

AGAGEO 

4 

c 

GEOGRAPHIC  COORDINATES  OF  POINT  I,  THE  AZIMUTH  AND  EARTH-CENTRAL 

AGAGEO 

5 

c 

ANGLE  OF  POINT  2  WITH  RESPECT  TO  POINT  1.  AND  THE  HEIGHT  OT 

AGAGEO 

6 

c 

POINT  2,  PROVIDES  THE  GEOGRAPHIC  COORDINATES  OE  POINT  2. 

AGAGEO 

7 

CCC 

AGAGEO 

n 

c 

INPUTS  FROM  CALL  STATEMENT 

AGAGEO 

9 

c 

HA1  =  ALTITUDE  OK  POINT  1,  CM 

AGAGEO 

10 

c 

GC1  -  COLATITUDE  OF  POINT  1,  RADIANS 

AGAGEO 

n 

c 

GLl  =  EAST  LONGITUDE  OF  POINT  1,  RADIANS 

AGAGEO 

l? 

c 

AZ21  =  AZIMUTH  ANGLE  OF  POINT  2  RELATIVE  TO  PO’NT  I,  RADS 

AGAGEO 

13 

c 

GA21  =  GEOCENTRIC  ANGLE  OF  POINT  ?  RELATIVE  Tf  NT  1,  RAD 

AGAGEO 

14 

c 

HA?  =  ALTITUDE  OF  POINT  2,  CM 

AGAGEO 

16 

c 

OUTPUTS 

AGAGEO 

16 

c 

IC?  =  COLATITUDE  OE  POINT  ?,  RADIANS 

AGAGEO 

17 

c 

GL?  *  EAST  LONGITUDE  OF  POINT  2,  RADIANS 

AGAGEO 

IP 

CCC 

AGAGEO 

19 

DATA  PI, RE  /  3.141592653590,6. 37103E+08  / 

AGAGEO 

20 

CCC 

AGAGEO 

21 

I F (  GA21.EQ.0.0  )  GO  TO  100 

AGAGEO 

2? 

R1  *  3E+HA1 

AGAGEO 

23 

R?  -  RE*HA2 

AGAGEO 

24 

SRI?  =  SQRT(R1*R1  ♦  R2*R2  -  2.*P.1*R2*C0S(GA21 ) ) 

AGAGEO 

25 

1F(  SR12.EO.O.O  )  GO  TO  100 

AGAGEO 

26 

SINXI  ■  R?*SIN ( GA21 ) /SRI? 

AGAGEO 

27 

COSX!  *  ( SR  12**2  *  Rl«?  -  R?**2)/f 2.*SR1?*R1 1 

AGAGEO 

28 

XI  -  ATAN?(  SINXI.COSXI  ) 

AGAGEO 

29 

HALFP I  =  PI/?. 

AGAGEO 

30 

EL 2 1  -  XI-HALFPI 

AGAGEO 

3! 

call  REATAN(SRl?,EL?l,*Z?i,XE.YN,ZV) 

AGAGEn 

3? 

CALI  TANGEOf HAI ,GC1 ,GL1,XE.YN,ZV,HA?2,GC2,GL?) 

AGAGEO 

7  7 

99 

RETURN 

AGAGEO 

34 

100 

GC2  =  GC1 

AGAGEO 

7C 

GL?  "  G!  I 

AGAGEO 

7A 

Go"  TO  9S 

AGAr.L'n 

3’ 

END 

AGAGEO 

3? 

SUBROUTINE  ATMRAD  (  LOGIC,  ISHElL,  XFRAC,  DS,  LBINT  ) 

ATMRAD 

2 

c 

ATMRAD 

3 

c 

*ATMRAD*  COMPUTES  THE  ATMOSPHERIC  VOLUME  EMISSION  ON  AN  OPTICAL 

ATMRAD 

4 

c 

PATH. 

ATMRAD 

5 

c 

ATMRAD 

6 

CLO 

INPUT  PARAMETERS 

ATMRAD 

7 

CLJ 

ARGUMENT  LIST 

ATMRAD 

8 

CLJ 

LOGIC 

S 

LOGICAL  VARIABLE 

ATMRAD 

9 

CIO 

X 

•  TRUE.  ON  FIRST  ENTRY  FROM  SUBROUTINE  TRNSCO 

ATM!  AD 

10 

CLJ 

(AND  IS  RESET  TO  .FALSE.  IN  ATMRAD). 

ATMRAD 

11 

CLJ 

X 

■  FALSE.  ON  SUBSEQUENT  ENTRIES  ALONG  THE  SAME  PATH 

ATM*  AO 

12 

CLJ 

1SH£IL(1) 

X 

INDX(I)  IN  CALL  FROM  TRNSCO 

ATMRAD 

13 

CLJ 

ISHELL(?) 

* 

INDXU+l)  IN  CALL  FROM  TRNSCO 

ATMRAD 

14 

CLJ 

1SHELL(3) 

- 

USED  IN  EVALUATING  THE  LOGICAL  VARIABLE  TEST. 

ATMRAD 

15 

CLJ 

WILL  TYPICALLY  BE  EQUAL  TO  INDX(]+2),  A  POSITIVE 

ATMRAD 

16 

CLJ 

QUANTITY  EXCEPT  ON  THE  LAST  CALL  TO  ATMRAD  WHEN 

ATMRAD 

17 

CLJ 

THE  LAST  PATH- SEGMENT  IS  BEING  TREATED  AT  WHICH 

ATMRAD 

IB 

CLJ 

TIME  I SHELL (3)  WILL  BECOME  EQUAL  TO  INDX(NC+1) 

ATMRAD 

19 

CLJ 

WHICH  HAD  BEEN  SET  TO  0  IN  SUBROUTINE  STEP. 

ATM*  AD 

20 

CLJ 

XFRAC  (1) 

■ 

XFRACS(I)  IN  CALL  FROM  TRNSCO 

ATMRAD 

21 

CLJ 

XFRAC(P) 

* 

XfRACS(I+l)  IN  CALL  FROM  TRNSCO 

ATM*  AD 

22 

CLJ 

NOTE...  TO  UNDERSTAND  THE  VALUES  ANO  USES  OF 

ATMRAD 

23 

CLJ 

XFRACS(I),  RECALL  THAT  THE  TOTAL  PATH  HAS  NC-1 

ATM*  AD 

24 

CLJ 

SEGMENTS  AND  NC  ENDPOINTS  OF  THESE  SEGMENTS. 

ATMRAD 

25 

CLJ 

XFRACS(l)  (1*1, NC)  IS  THE  WEtGHT  ASSOCIATED  WITH 

ATM*  AD 

26 

CLJ 

THE  NTH  ENDPOINT  APPROPRIATE  FOR  FINDING  AT  THAT 

ATMRAD 

27 

CLJ 

POINT  THE  LINEARLY-INTERPOLATED  VALUE  OF 

ATMRAD 

28 

CLJ 

PARAMETERS  —  SUCH  AS  TEMPERATURE  AND  PRESSURE 

ATMRAD 

29 

CLJ 

(OR  EVEN  ALTITUOt)  -  WHICH  ARE  SPECIFIED  AT  THE 

ATM*  AD 

30 

CLJ 

TWO  SHai  BOUNDARIES  ADJACENT  TO  THE  NTH 

ATMRAD 

31 

CLJ 

ENDPOINT. 

ATM*  AD 

32 

CLJ 

FOP  VERIFICATION  OF  THIS  INTERPRETATION,  SEE  THE 

ATMRAD 

33 

CLJ 

USAGE  OF  XFRAC(l)  ANO  XFRACf?)  IN  SUBROUTINE 

ATMRAD 

34 

CLJ 

ATMRAD  FOR  OBTAINING  ALTITUDE  AND  TEMPERATURE  AT 

ATMRAD 

35 

CLJ 

FRONT  AND  BACK  OF  CELL  DS.  THE  SAME  CONCLUSION 

ATM?  AD 

36 

CLJ 

MAY  BE  DRAWN  FROM  THE  USAGE  OF  XFRACS(l)  AND 

ATMRAD 

37 

CLJ 

XFRACS(2)  IN  SUBROUTINE  PATH. 

ATMRAD 

38 

CLJ 

CONSIDER  A  HYPOTHETICAL  EXAMPLE  WITH  HSHELLfU'O., 

ATMRAD 

39 

CLJ 

1. ,3.  FOR  1*1,2, 3, A  AND  45-DEGREE  PATH  FROM 

ATM?  AD 

40 

CLJ 

ALTITUDE  1.9  TO  2.9  KM.  THEN  NC*3  AND  WE  HAVE  THE 

ATMRAD 

41 

CLJ 

FOLLOWING  VALUES  FOR  THE  ARRAYS. 

ATM*  AD 

42 

CLJ 

I  DS(I )  XERACS(I)  INDEX ( I ) 

ATMRAD 

43 

CLJ 

-  -  - - -  -  - - 

ATMRAD 

44 

CLJ 

1  0.0  0.1  2 

ATMRAD 

45 

CLJ 

2  0.1414  1.0  3 

ATM!  AD 

46 

CLJ 

3  1.2728  0.9  4 

ATMRAD 

47 

CLJ 

4  -1.0  0 

ATM*  AD 

48 

CLJ 

ATMRAD 

49 

CLJ 

DS 

■ 

DS ( I  +1 )  IN  CALL  FROM  TRNSCO 

ATMRAD 

50 

CLO 

NOTE...  IT  IS  ALWAYS  TRUE  THAT  DS(1)*0  AND 

ATMRAD 

51 

CLJ 

DS(NC»1)*-1 . ,  WHERE  NC  IS  THE  NUMBER  OF  PATH 

ATM*  AD 

52 

CLJ 

SEGMENTS  PLUS  ONE.  ATMRAD  WILL  NOT  BE  CALLED 

ATMRAD 

53 

CLJ 

WITH  I-NC.  (CM) 

ATM*  AD 

5« 

CLJ 

LBINT 

■ 

WORD  NO.  5  IN  GRCS  DATASET-BN  (NO.  114). 

ATMRAD 

55 

CLJ 

STRICTLY,  LBINT  IS  THE  POINTER  (I.E.,  CONTAINS  THE 

ATMRAD 

56 

CLJ 

(Q-ARRAY)  ADDRESS  1  FOR  THE  LIST  HEADER  OF  THE 

ATMRAD 

57 

CLJ 

BAND- INTERVAL  OAT..SETS-B!  CORRESPONDING  TO 

ATMRAD 

58 

244 


Cl  J 

DATA  srr- BN. 

AT*  AD 

59 

CLJ 

XYZCOM  COMMON 

ATMRAD 

50 

CLJ 

FACT  *  PATH  RESOLUTION  FACTOR  CONTROLLING  THE  NUMBER  OF 

AT*  AD 

61 

CLJ 

ALTITUOES  AND  SPACING  USED  IN  SUBROUTINE  SHaLS. 

ATMRAD 

62 

CLJ 

SET  IN  DRIVER  PROGRAM.  HERE  IN  SUBROUTINE  AT*AD, 

ATMRAD 

63 

CLJ 

FACT  IS  USED  TO  SET  TOL,  WHICH  IS  USED  TO  TEST 

ATMRAD 

64 

CLJ 

TEMPERATURE  DIFFERENCES  ACROSS  CELLS. 

ATMRAD 

65 

CLJ 

HSHaL(J)  -  ALTITUDE  BOUNDARY,  CM  (0*1, NS)  (HSHat (1  )»0. ) 

ATMRAD 

66 

CLJ 

TS(J)  «  TEMPERATURE  AT  ALTITUDE  BOUNDARY  J,  DEG  K 

ATMRAD 

67 

CLJ 

U(I,N,2)  *  CUMULATIVE  VALUE  OF  PATH  PARAMETER  U  (AREAL 

ATMRAD 

68 

CLJ 

DENSITY)  FOR  TEMPERATURE- INDEX  I  AND  SPECIES  N  AT 

ATMRAD 

69 

CLJ 

END  OF  LINE  SEGMENT  DS,  CM  AT  STP 

ATMRAD 

70 

CLJ 

UP(I,N,2)  •  CUMULATIVE  VALUE  OF  PATH  PARAMETER  UP  (PRODUCT  OF 

AT*  AD 

71 

CLJ 

U  AND  PRESSURE  P)  FDR  TEMPERATURE- INDEX  I  AND 

ATMRAD 

72 

CLJ 

SPECIES  N  AT  END  OF  LINE  SEGMENT  DS,  ATM-CM 

ATMRAD 

73 

CLJ 

AT  STP  FOR  U  AND  UP  (1*1,2  ,  N*l,10) 

ATMRAD 

74 

CLJ 

MMOLS  *  NUMBER  OF  SPECIES.  SET  IN  DRiVER. 

AT*  AD 

75 

CLJ 

LTMTE  *  BINARY  FILE  CONTAINING  THE  BAND-MODEL  PARAMETERS 

ATMRAD 

76 

CLJ 

WHICH  WERE  DERIVED  IN  SUBROUTINE  TRAN  SB  FROM  THE 

A1MRAD 

77 

CLJ 

BASIC  5- (1 /CM) -RESOLUTION  DATA.  HERE  IN 

ATMRAD 

78 

CLJ 

SUBROUTINE  AT*AD,  FILE  LTMTE  IS  REWOUND  FOR  USE 

AT*  AD 

79 

CLJ 

IN  SUBROUTINE  TRANS. 

ATMRAD 

BO 

CLJ 

OPTION  COWION 

AT*  AD 

81 

CLJ 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  OF  MOLECULAR 

ATMRAD 

82 

CLJ 

TRANSMITTANCE  CALCULATION  (SEE  SUBROUTINES  TRANSE 

AT*  AD 

83 

CLJ 

AND  TRANS).  IN  SUBROUTINE  ATMRAD,  TRNSOPT  IS  USED 

ATMRAD 

84 

CLJ 

ONLY  IN  THE  ARGUMENT  LIST  FOR  THE  CALL  TO 

AT*  AD 

85 

CLJ 

SUBROUTINE  TRANS. 

ATMRAD 

86 

CLJ 

DATASET  BI  (BANO- INTERVAL  DATASET,  NO.  115) 

A1MRAD 

87 

CLJ 

0(1 )  -  8NL0  BI  -  LOW  WAVELENGTH  FOR  WAVELENGTH-BAND- INDEX 

ATMRAD 

88 

CLJ 

J.  MICRONS 

ATMRAD 

89 

CLJ 

Q(2 )  *  BNHJ  BI  »  HIGH  WAVELENGTH  FOR  WAVELENGTH- BAND- 

ATMRAD 

90 

CLJ 

INDEX  J,  MICRONS 

AT*  AD 

91 

CLJ 

Q(3)  *  WLO  BI  *  LOW  WAVENUMBER  FOR  WAVELENGTH-BAND- INDEX 

ATMRAD 

92 

CLJ 

J,  CM- 1 

AT*  AD 

93 

CLJ 

Q(«)  *  WHI  BI  *  HIGH  WAVENUMBER  FOR  WAVELENGTH-BAND- 

ATMRAD 

94 

CLJ 

INDEX  0,  CM-1 

AT*  AD 

96 

CLJ 

OUTPUT  PARAMETERS 

ATMRAD 

96 

CLJ 

DATASET  BI 

AT*  AD 

97 

CLJ 

0(5)  *  BKGNO  BI  ■  IN-BAND  RADIANCE  TO  BACK  OF  CELL  DS, 

ATMRAD 

98 

CLJ 

NATTS/(CM**2  SR  BAND) 

AT*  AD 

99 

CLJ 

0(7)  *  TRANS  81  -  PRODUCT  OF  MOLECULAR  AND  AEROSOL 

ATMRAD 

100 

CLJ 

TRANSMITTANCE  TO  BACK  OF  CELL  DS 

AT*  AD 

101 

CLJ 

Q(8)  *  IDSBX  BI  -  CUMULATIVE  AEROSOL  TRANSMITTANCE  TO 

ATMRAD 

102 

CLJ 

BACK  OF  CELL  DS 

AT*  AD 

103 

CLJ 

**•  NOTE  «*  THIS  IS  THE  SECOND  OF  TWO  TEMPORARY  USES  OF 

ATMRAD 

104 

CLJ 

***  WORO-B  (AND  NOT  THE  GRC  DICTIONARY  USE  OF 

AT*  AD 

105 

CLJ 

**•  WORD-8).  HERE,  IT  IS  USED  TO  CARRY 

ATMRAD 

106 

CLJ 

***  INFORMATION  TO  SUBROUTINE  UPWELL. 

AT*  AD 

107 

CLJ 

ATMRAD 

108 

CLJ 

WE  ALSO  NOTE,  FOR  COMPLETENESS  OF  DATASET  BI, 

At*  AO 

109 

CLJ 

Q(6)  •  TFLAG  BI  -  SEE  SUBROUTINE  TRAN  SB  FOR  DEFINITION. 

ATMRAD 

no 

CLJ 

AT*  AD 

in 

COMMON  ONAREA,  QWAREA(IO),  QFREHD,  ONDTST,  QNLNKS,  02SI7E, 

ATMRAD 

112 

1  ONZBLK,  DZHEAD,  QCOUNT{30),  QOSIZE(IO),  QNSIZE,  QLUNIT(IO), 

AT*  AD 

113 

2  QERLUN,  QFBIT5(2,10),  q(1) 

ATMRAD 

114 

COPWON  /  XYZCOM  /  ITMTE,  LTMTE,  NS.  H5HELl(81),  TS(81),  PS(8I), 

AT*  AD 

115 

245 


1  XNSPEC(81,10),  U(10,10,?).  UP(10.10,2),  tWOLS, 

2  FACT 
COMMON  /  OPTION  /  TRNSOPT 

DIMENSION  TAU(IO),  ABC(IO),  ISHEU{3).  XFRAC(2) 

DIMENSION  BNLO  BI(1),  BNHI  BI(1),  WLO  B]  ( 1 ) ,  WH!  81(1). 

*  BAGNO  Bl(l).  TFLAG  BI(1),  TRANS  B!(l).  IDSBX  BI(1) 

DIMENSION  TDST  B* ( 1 ) .  DELTS  BX(1 ).  ABCLD  BX(1),  UVRB  BX(1), 

•  XKABS  BX£1) 


EQUIVALENCE  (  Q(l).  BNLO 
‘  (  0(3).  WLO 


81  ).  (  Q(2),  BNHI 
81  ).  (  0(4 ).  WHI 


). 


{  Q(5),  8KGND  B1  ),  (  0(6),  TFLAG  B!  ), 
*  (  Q(7),  TRANS  BI  ).  (  Q(8) ,  IDSBX  BI  ) 
EQUIVALENCE  (  Q(l),  TDST  BX  ),  (  0(2),  CELTS  BX  ). 

(  0(3).  ABCLD  BX  ),  (  0(A),  UVRB  BX  ), 


ATM!  AD 
ATMRAD 
ATMRAD 
ATMRAD 
ATM!  AD 
ATMRAD 
ATMRAD 
ATMRAD 
ATM!  AD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
ATMRAD 
atm;  AD 


116 
117 
1  IS 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 


* 

(  0(5),  XKABS  BX  ) 

ATMRAD 

131 

CLJ 

ATMRAD 

132 

CLJ 

DATASET-BX  USED  HERE  IN  SUBROUTINE  ATMRAD  IS  A  TEMPORARY 

ATMRAD 

133 

CLJ 

FIVE-WORD  DATASET  WHICH  SHOULD  NOT  BE  CONFUSED  WITH  THE 

atmiad 

134 

CLJ 

FIFTEEN-WORD  DATASET-BX  (NO.  118)  USED  IN  THE  GRC  DICTIONARY 

ATMRAD 

135 

CLJ 

OF  DATASETS. 

ATMRAD 

136 

CLJ 

DATASET-BX  PROVIDES  VARIOUS  PROPERTIES  AT  THE  FRONT  OF  THE 

ATMRAD 

137 

CLJ 

CURRENT  CELL  DS. 

ATMIAD 

138 

CLJ 

Q(l)  *  TDST  BX  ■  CUMULATIVE  AEROSOL  TRAN9HTTANCE  TO 

ATMRAD 

139 

CLJ 

FRONT  OF  CURRENT  CELL 

ATMIAD 

140 

Cl  J 

Q(2)  «  0ELTS8X  «  LENGTH  OF  LAST  CELL  (OR  CELLS)  IF  IT  (OR 

ATMRAD 

141 

CLJ 

THEY)  WAS  (OR  WERE)  SKIPPED  OVER  BECAUSE 

ATMIAD 

14? 

CLJ 

TEST  =  .TRUE.  ,  CM 

ATMRAD 

143 

CLJ 

Q(3)  *  ABCLOBX  =-  OPTICAL  DEPTH  AT  FRONT  OF  CURRENT  CELL, 

ATMRAD 

144 

CLJ 

DIMENSIONLESS 

ATMRAD 

145 

CLJ 

0(4)  =  UVRB  BX  =  MOLECULAR  ABSORPTION  COEFFICIENT  AT 

ATMIAD 

146 

CLJ 

FRONT  OF  CURRENT  CELL  DS,  1/CM 

ATMRAD 

147 

CLJ 

Q(5)  •  XKA8SBX  *  AEROSDL  ABSORPTION  COEFFICIENT,  1/CM 

ATMIAD 

14B 

C 

ATMRAD 

149 

LOGICAL  TRNSOPT,  LOGIC,  TEST 

ATMRAD 

150 

C 

ATMRAD 

151 

LI 

*  I  SHELL  (1 ) 

ATMRAD 

152 

L2 

-  I SHELL (2) 

ATMRAD 

153 

CLJ 

HSF.MSB  AND  TFRONT, TBACK  ARF,  RESPFCTJ VFLY,  TMF  ALTITUDES 

ATMRAD 

154 

CLJ 

AND  TEMPERATURES  AT  THE  FRONT  AND  BACK  OF  THE  CURRENT  CELL  DS 

ATMRAD 

155 

CLJ 

CORRESPONDING  TO  0S( 1 *1 ) .  CM  AND  DEG  K 

ATM.  A!., 

156 

IF 

LOGIC  )  HSE  *  XFRAC ( 1 )  *  HSHELL(Ll)  +  (  1.  -  XFRAC(l)  )  * 

ATMRAD 

157 

S 

HSHELLU2) 

ATMRAD 

158 

HS8 

«  XFRAC(2)  *  HSHELL ( L2 )  +  (  1.  -  XFRAC(2)  )  *  HSHaULl) 

ATMRAD 

159 

IF 

(  LOGIC  )  TFRONT  ■=  XFRAC(l)  *  TS(L1 )  +  (  1.  -  XFKAC(l)  )  * 

ATMRAD 

160 

J 

TS(L2) 

ATMRAD 

161 

TBACK  *  XFRAC(?)  *  TS(L2)  ♦  (  1.  -  XFRAC(?1  )  •  TS(L1) 

ATMRAD 

16? 

CLJ 

SET  FILE  POSITION  FIlPOS  FOR  USE  IN  SUBROUTINE  TRANS. 

ATMRAD 

163 

FILPOS  *  l.EA 

ATMRAD 

164 

CLJ 

TEST  *  .TRUE.  PROVIDED  THE  TEMPERATURE  CHANGE  ACROSS  A  CELL  IS 

ATMRAD 

165 

CLJ 

LESS  THAN  ONE  PERCENT  (FOR  THE  STANDARD  ATMOSPHERIC  SHELL 

ATMIAD 

166 

CLJ 

SPACING  SET  BY  FACT-1 )  AND  PROVIDED  IT  IS  NEITHER  THE  FIRST 

ATMRAD 

167 

CLJ 

HOP  LAST  CALL  TO  ATMRAD. 

ATMIAD 

16? 

CLJ 

*»*  NOTE  *+*  GRC  (IN  PROGRAM  ATKGEN)  SETS  TACT  TO  10.0  IF 

ATMRAD 

16Q 

CLJ 

TRNSOPT  ■  .TRUE. 

ATMIAD 

170 

TOL 

•  0.01  *  SORT(  FACT  ) 

ATMRAD 

171 

TEST  •  ABS(  T FRONT  -  TBACX  )/  TFRONT  .LT.  TOL  .AND. 

ATMIAD 

17? 

?.  4b 


CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 


C 

C 

CLJ 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 


s 

I SHELL! 3)  .GT.  0  .AND.  .NOT.  LOGIC 

ATHRAD 

V»7 

LOOP  OVER  SPECTRAL  BAND- INTERVALS  IN  INCREASING  WAVENUMBERS. 

ATMRAD 

i?A 

LINT  -  LBINT 

ATX!  AD 

175 

CALL  ME V  (  LINT,  J  ) 

ATMRAD 

176 

IF 

(  J  .EQ.  0  )  GO  TO  10 

ATMRAD 

177 

CREATE  A  5-WORD  DATASET  WITH  INDEX  JJ.  (IN  OTHER  WORDS,  JJ  IS 

ATMRAD 

178 

THE  ADDRESS  OF  THE  FIRST  OF  THE  FIVE  WORDS.) 

ATX)  AD 

179 

IF 

(  LOGIC  )  CALL  CREATL  (  5,  JJ  ) 

ATMRAD 

180 

CALL  TO  DSPWRD  RETURNS  ADDRESS,  IDSBX  B1(J)  (WHICH  IS  STORED 

ATMRAD 

181 

AS  WORD-8  OF  DATASET-BI ) ,  OF  DSP  WORD  FOR  THE  DATASET-BX  WHOSE 

ATMRAD 

18? 

FIRST-WORD  ADDRESS  IS  JJ  (ALL  FOR  EACH  J).  (IN  OTHER  WORDS, 

ATT*  AD 

183 

IDSBX  81 ( J)  IS  THE  POINTER  TO  THE  DSP  WORD  FOR  THE  DATASET-BX. 

ATMRAD 

184 

)  THIS  IS  THE  FIRST  OF  TWO  TEMPORARY  USES  IN  THIS  ROUTINE  OF 

ATHRAD 

185 

WORD-8  OF  DATASET-BI.  HERE  IT  IS  USED  AS  A  POINTER  TO  THE  DSP 

ATMRAD 

186 

WORD  FOR  THE  TEMPORARY  DATASET-BX. 

ATMRAD 

187 

IF 

(  LOGIC  )  CALL  DSPWRD  (  JJ,  IDSBX  BI(J)  ) 

ATMRAD 

188 

IF 

(  LOGIC  )  TRANS  B!(J)  =  1. 

ATMRAD 

189 

IF 

(  LOGIC  )  BK'ND  SI ( J)  -  0. 

ATMRAD 

190 

IF 

(  LOGIC  )  TOST  BX(JJ)  -  1. 

ATHRAD 

191 

IF 

(  LOGIC  )  ABCLD  BX ( J J }  -  0. 

ATMRAD 

19? 

CALL  TO  1NDWRD  RETURNS  IN  JJ  THE  INDEX  (FIRST-WORD  ADDRESS) 

ATMRAD 

193 

FOR  THE  DATASET-BX  FOR  WHICH  THE  POINTER  TO  ITS  DSP  WORD 

ATMRAD 

194 

(ZEROTH-WORD  ADDRESS)  IS  STORED  IN  IDSBX  BI(J)  (WORD-8  OF 

ATW  AD 

li5 

DATASET-BI). 

ATMRAD 

196 

IF 

(  .NOT.  LOGIC  )  CALL  INDWRO  {  IDSBX  81 (J).  JJ  ) 

ATHRAD 

197 

WDL 

*  WLO  BI(J) 

ATMRAD 

198 

MDH 

*  WHI  B1 ( J) 

ATMRAD 

199 

W  - 

.5  »  (  WDL  ♦  WDH  ) 

ATMRAD 

?00 

SET  MEAN  WAVENUMBER  W  FOR  CALLING  PLANCK  AND  MEAN  WAVELENGTH 

ATMRAD 

?01 

WAVEL  EOR  CA,.”NG  AEROSOL. 

ATMRAD 

?0? 

WAV El  »  1.E4/W 

ATMRAD 

?03 

OELTSBX ( JJ)  WILL  NORMALLV  EQUAL  OS  BECAUSE  THE  OLD  OELTSBX(JJ) 

ATMRAD 

?04 

WAS  INITIALLY  ZEROED  BY  THE  DSA  SYSTEM  AND  SUBSEQUENTLY  ZEROED 

ATMRAD 

?0S 

AT  THE  END  OF  EACH  PASS  THROUGH  ATMRAD,  EXCEPT  WHEN 

ATMRAD 

?06 

TEST  -  .TRUE. 

ATMRAD 

?07 

DEITS  8X ( JJ)  -  DELTS  B*(JJ)  +  D$ 

ATMRAD 

?0P 

IF 

(  LOGIC  )  CALL  AEROSOL (  HSF, WAVEL. XKSCA. XKAB5  BX(JJ),GBAP.  ) 

ATMRAD 

?0Q 

CALL  AEROSOL I  HSB, WAVEL. XKSCA.XKABS.GBAR  ) 

ATMRAD 

?10 

XKEXT  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  I! /CM)  AT  BACK  OF 

AfWAD 

?1! 

CURRENT  CELL  AND  TOST  IS  THE  AEROSOL  TRANSMITTANCE  TO  THE  BACK 

ATMRAD 

?1? 

OF  CURRENT  CELL 

ATX  AD 

?13 

XKEXT  «  XKSCA  +  XKABS 

ATMRAD 

?ia 

TOST  -  EXP(  -XKEXT  *  OS  )  *  TOST  BXfJJl 

ATX  AD 

?lc 

COMPUTE  INCREMENTAL  RADIANCE  WHEN  TEMPERATURE 

ATMRAD 

?'  6 

CHANGE  IS  more  than  ONE  PERCFNI  at  standard  path  RESOLUTION 

ATX!  AD 

217 

IF 

(  TFST  )  GO  TO  5 

ATMRAD 

?1  R 

NOTE  THAT  SUBROUTINE  TRANS  RECEIVES  THE  ARRAYS  U(I,N,Z)  AND 

ATMPAD 

?19 

UP[  I  ,N ,? )  AS  U(I,N,1>  ANO  U0!I.N.]). 

ATMRAD 

??P 

CALL  TRANS  (  10,  1.  11(1,1,?),  LIPU.l,?),  XI,  WDL.  WDH,  TAU,  ABC, 

ATX?  AD 

??; 

I 

TNEW,  TRNSOPT,  ERPOS  ) 

ATMRAD 

??? 

NOW  HAVE... 

ATX!  AD 

??? 

ABC  »  OPTICAL-DEPTH  ARRAY  TO  BACK  OF  CURRENT  CELL  FOR 

ATMRAD 

??4 

SPECIES  N  =  1 ,10 

ATX?  AD 

??5 

TNEW  =  MOLECULAR  TRANSMITTANCE  TO  BACK  OF  C'JRR ENT  CELL 

ATMRAD 

??5 

TAU  *  MOLECULAR  TRANSMITTANCE  ARRAY  TO  RACK  OF  CURRENr 

ATX  AD 

??t 

CELL  FOR  SPECIES  N=1.10  (UNUSED  HERE ' 

ATHRAD 

??R 

RESET  TNEW  TO  BE  THE  PRODUCT  Or  THE  MOLECULAR  AND  AEROSOL 

ATX  AD 

??P 

24' 


CL  J 

TRANSMITTANCE  TO  BACK  OF  CURRENT  CELL  (DS) 

ATM?  AD 

230 

TNEW  *  TNEW  *  TOST 

ATMRAD 

231 

ABCNEW  «  0. 

ATM!  AD 

232 

CLJ 

COMPUTE  OPTICAL  DEPTH  FOR  ALL  SPECIES,  ABC NEW,  TO  BACK  OF 

ATMRAD 

233 

CU 

CELL  DS. 

ATM)  AD 

234 

DO  3  N*l, NMOLS 

ATMRAD 

23b 

3  ABCNEW  *  ABCNEW  +  ABC ( N ) 

ATM!  AD 

236 

ABCNEW  *  AMAXl(  ABCNEW.  ABCLD  BX(JJ)  ) 

ATMRAD 

23? 

C 

ACCUMULATE  SPECTRAL  RADIANCE  AND  TRANSMISSION  ARRAYS 

ATMRAD 

238 

CLJ 

UVRB  *  MOLECULAR  ABSORPTION  COEFFICIENT,  1/CM  (NORMALLY 

ATMRAD 

239 

CIO 

FOR  CELL  DS) 

ATMtAD 

240 

UVRB  -  (  ABCNEW  -  ABCLD  BX(JJ)  )  /  DaTS  BX(JJ) 

ATMRAD 

241 

IF  {  LOGIC  )  UVRB  BX(JJ)  *  UVRB 

ATMRAD 

242 

BBODYF  -  PL  WICK (  TFRONT,  W  ) 

ATMRAD 

243 

B80DYB  ■  PLANCK(  TBACK,  W  ) 

ATMRAD 

244 

CLJ 

COMPUTE  IN-BAND  RADIANCE  TO  BACK  OF  caL  OS  BY  AVERAGING  OVER 

ATMRAD 

245 

CLJ 

PATH  SEGMENT  DS  WITH  LOGARITHMIC  INTERPOLATION.  THIS  STEP  IS 

ATM!  AD 

246 

CLJ 

VERY  IMPORTANT.  THE  FACTOR  (WDH-WDL)  CONVERTS  FROM  SPECTRAL 

ATMRAD 

247 

CLJ 

TO  IN-BAND  RADIANCE. 

ATM!  AD 

248 

BKGND  BI (J)  *  BKGND  BI(J)  ♦  ACCUM(  2,  0.,  DS.  (  UVRB  BX/JJ)  + 

ATMRAD 

249 

S  XKABS  BX(JJ)  )*BBODYF*TRANS  BI(J),  (  UVR8  *  XKABS  )* 

ATMRAD 

250 

S  B80DYB*TNEW,  0. ,  DS  )  *  {  WDH  -  WDL  ) 

ATMRAD 

251 

CLJ 

SET  VALUE  OF  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  TO  FRONT  OF 

ATM!  AD 

252 

CLJ 

NEXT  caL  FOR  NEXT  CALL  TO  ATMRAD. 

ATMRAD 

253 

TRANS  BI ( J)  »  TNEW 

ATMRAD 

254 

CLJ 

THE  FOLLOWING  TEST  IS  FOR  THE  LAST  CELL.  THE  CALL  TO  DSTROY 

ATMRAD 

255 

CLJ 

REMOVES  DATASET-BX  AND  ITS  DSP  WORD.  (THE  INDEX  JO  AND  THE 

ATM!  AD 

256 

CLJ 

DSP  WORD  FOR  OATASET-BX  ARE  SET  TO  ZERO.  THE  SIX  WORDS  USED 

ATMRAD 

25Z 

CLJ 

BY  DATASET-BX  ARE  REGARDED  AS  FREE  BY  THE  SYSTEM,  THOUGH  THEY 

ATM!  AD 

258 

CLJ 

HAVE  NOT  YET  BEEN  ZEROED.)  INVOKE  SECOND  TEMPORARY  USE  OF 

ATMRAD 

259 

CLJ 

WORO-8  OF  DATASET-BI  BY  SETTING  IT  EQUAL  TO  TDST. 

A’-DAD 

260 

IF  (  ISHaL(3)  .EO.  0  )  CALL  DSTROY  (  UJ  ) 

ATMRAD 

261 

IF  (ISHELL(3)  -EO.  0  )  CALL  XMIT(1 .TDST.IDSBX  BI(J)) 

ATM!  AD 

262 

IF  (ISHaL(3)  .EQ.  0  )  GO  TO  2 

ATMRAD 

263 

CLJ 

ZERO  THE  PATH- SEGMENT  LENGTH,  WHICH  IS  ALWAYS  DONE  UNLESS 

ATM!  AD 

264 

CLJ 

TEST  -  .TRUE.  ALSO,  SET  PROPERTIES  AT  FRONT  OF  NEXT  CELL 

ATMRAD 

265 

CLJ 

FOR  NEXT  CALL  TO  ATMRAD... 

ATM!  AD 

266 

CLJ 

ABCLD  BX(JJ)  -  OPTICAL  DEPTH 

ATMRAD 

267 

CLJ 

XKABS  BX(JJ)  »  AEROSOL  ABSORPTION  COEFFICIENT 

ATMRAD 

268 

CLJ 

UVRB  BK(JJ)  *  MOLECULAR  ABSORPTION  COEFFICIENT 

ATMRAD 

269 

CLJ 

TOST  BX(JJ)  -  AEROSOL  TRANSMITTANCE 

ATM!  AD 

270 

CRTS  BX(JJ)  -  0. 

ATMRAD 

271 

ABCLD  BX(JJ)  -  ABCNEW 

ATM!  AD 

272 

XKABS  BX(JJ)  *  XKABS 

ATMRAD 

273 

UVRB  8X(JJ)  ■  UVRB 

ATMRAD 

274 

5  TDST  BX(JJ)  «  TOST 

ATMRAD 

275 

GO  TO  2 

ATM!  AD 

276 

C 

ATMRAD 

277 

10  IF  (  TEST  )  60  TO  11 

ATM!  AD 

278 

REWIND  LTMTE 

ATMRAD 

2/9 

HSF  «  HSB 

ATM!  AD 

280 

TFRONT  *  TBACK 

ATMRAD 

281 

11  LOGIC  *  .FALSE. 

ATM!  AD 

28? 

RETURN 

ATMRAD 

283 

END 

ATM)  AD 

284 

Z48 


FUNCTION  C ANGLE! PlLAT,PlLON,P2LAT,P2LON) 

CANGLE 

2 

CCC 

CANGLE 

3 

c 

FUNCTION  C ANGLE  COMPUTES  THE  EARTH-CENTRAL  ANGLE,  CANGLE, 

CANGLE 

4 

c 

BETWEEN  THE  TWO  CENTRAL  RAYS  TO  POINTS  PI  AND  P2,  GIVEN  THE 

CANGLE 

5 

c 

LATITUDE  AND  LONGITUDES  OF  POINTS  PI  AND  P2. 

CANGLE 

6 

CCC 

CANGLE 

7 

c 

INPUT  PARAMETERS 

CANGLE 

8 

c 

ARGUMENT  LIST 

CANGLE 

9 

c 

P1LAT  -  NORTH  LATITUDE  OF  POINT  PI,  RADIANS 

CANGLE 

10 

c 

P1L0N  -  EAST  LONGITUDE  OF  POINT  PI,  RADIANS 

CANGLE 

11 

c 

P2LAT  -  NORTH  LATITUDE  OF  POINT  P2,  RADIANS 

CANGLE 

12 

r 

PELON  -  EAST  LONGITUDE  OF  POINT  P2.  RADIANS 

CANGLE 

13 

C 

OUTPUT  PARAMETER 

CANGLE 

14 

C 

CANGLE  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

CANGLE 

15 

C 

PI  AND  P2 

CANGLE 

16 

CCC 

CANGLE 

17 

C 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P2,  WHERE  N  IS  AT 

CANGLE 

18 

C 

THE  NORTH  POLE. 

CANGLE 

19 

CCC 

CANGLE 

20 

SINSIN  *  S1N(P1LAT)*S!N(P2LAT) 

CANGLE 

21 

COSCOS  -  C0S(P1LAT)*C0S(P2LAT) 

CANGLE 

22 

ALPHAC  ■  ACOS(  SINSIN  +  COSCOS*COS(P2LON-PlLON)  ) 

CANGLE 

23 

CANGLE  *  ALPHAC 

CANGLE 

24 

RETURN 

CANGLE 

25 

END 

CANGLE 

26 

FUNCTION  DOT  (  X;  Y  ) 

DOT 

2 

C 

DOT 

3 

C 

♦DOT*  FORMS  THE  DOT  PRODUCT  OF  TWO  VECTOR 5. 

DOT 

4 

C 

DOT 

5 

DIMENSION  X(3),  Y(3) 

DOT 

6 

DOT  -  X(l)  •  Y( 1 )  ♦  X(2)  *  Y(2)  ♦  X{3)  •  Y(3) 

DOT 

7 

RETURN 

DOT 

8 

END 

DOT 

9 

function  erf(x)  erff 

C  ERF  IS  THE  ERROR  FUNCTION,  BASED  ON  THE  RATIONAL-APPROXIMATION  ERFF 

C  FORMULA  7.1.2. 6  IN  THE  NBS  APPLIED  MATH.  SERIES  NO.  55  (8UT  ERFF 

C  WITH  CONSTANTS  REDUCED  TO  SEVEN  DIGITS).  ERFF 

C  ERFF 

Y  •  1.0  ERFF 

IF ( ABS(X)-4.0)  1,1,2  ERFF 

1  .  ■  1 .0/(1 .♦0.3275911*ABS(X))  ERFF 

V  •  1.  -  ( ( ( ( 1 .061405*T  -  1.453152)*T  +  1.421414)«T  -  0.2844967)*T  ERFF 

1  *  0.2S4fl?<JfiI*T*EXP(-X«X)  ERFF 

2  ERF  -  SIGN(Y.X)  ERFF 

RETURN  ERFF 

END  ERFF 


2 

3 

4 

5 

6 

7 

8 
9 

10 

n 

u 

13 

14 
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ccc 

c 

c 

c 

c 

c 

c 

ccc 


SUBROUTINE  ESURF(TH]  ,THR,PS1,ZKM,MSM,D0,SPCUIR.ZLAM.IDAY,IFIRES. 

•  E SURF l.SFR.E PSD, TKS) 

SUBROUTINE  ESURF  PROVIDES  THE  BIDIRECTIONAL  REFLECTANCE 
DISTRIBUTION  FUNCTION  (BRDF ),  DIRECTIONAL  EMISSIVITY,  AND 
TEMPERATURE  OF  THE  EARTH'S  SURFACE  AT  THE  INTERSECTION  POINT 
OF  THE  OPTICAL  L1n£-OF-SIGHT.  SINCE  THE  SURFACE  CATEGORY  IS 
NOT  AUTOMATICALLY  CORRELATED  WITH  THE  GEOGRAPHIC  POSITION, 

THE  USER  MUST  SELECT  ONE  OF  THE  SEVEN  CATEGORIES  PROVIDED. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

THI  *  ZENITH  ANGLE  OF  SOURCE  (E.G.,  SUN  OR  FIREBALL)  AT 
INTERSECTION  POINT,  RADIANS 

WHEN  SUBROUTINE  SURRAO  IS  CALLED  FROM  SUBROUTINE 
UPWELL,  AS  IT  IS  IN  THE  NBR  MODULE,  THI  IS  SET  IN 
StIRRAD  TO  AN  ARBITRARY  (NON-PHYSICAL)  VALUE  OF 
-1.0  FOR  NIGHTTIME  CONDITIONS. 

ZENITH  ANGLE  OF  LINE-OF-SIGHT  AT  INTERSECTION 
POINT,  RADIANS 

AZIMUTH  ANGLE  (AT  INTERSECTION  POINT)  OF  VERTICAL 
PLANE  THROUGH  LINE-OF-SIGHT,  MEASURED  RELATIVE  TO 
THE  SOURCE  PRINCIPAL  PLANE  (I.E.,  VERTICAL  PLANE 
THROUGH  SOURCE  RAY).  A  VALUE  OF  PS  1-0  CORRESPONDS 
TO  FORWARD  SCATTERING.  IN  RADIANS 
FOR  NIGHTTIME  CONDITIONS.  PSI  IS  SET  TO  -1.0.  SEE 
COMMENT  ABOVE  FOR  THI. 

ALTITUDE  of  surface,  km 
INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL. 

1,  LAMBERTIAN  DIFFUSE  SURFACE  WITH  SPECTRALLY- 
INDEPENDENT  REFLECTANCE  SET  BY  DD'l)  AND 
EMISSIVITY  BY  (l.-DO(l)). 

WATER 
SNOW 
SAND 
SOIL 
FOLIAGE 

URBAN  MATERIAL 

ADDITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE 
MATERIAL. 

FOR  M  =  1,  (IAMBERTIAN  SURFACE),  DD(1)  =  DIFFUSE 
REFLECTANCE.  TYPICAL  VALUE  IS  0.10 

2,  (WATER),  DD(2)  -  WIND  SPEED,  M/SEC. 

3,  (SNOW).  00(3)  ■=  SNOW-AGE  PARAMETER, 

00(3). GE.O.  .AND.  ,IE . 1 .  VALUES  OF  0-  AND  1. 
CORRESPOND  TO  NEW  AND  OLD  SNOW  RESPECTIVELY. 

4,5,6,  DO(M)  NOT  USED. 

7,  (URBAN  MATERIAL).  DD( 7) -DEGREE -OF -URBANI ZATION, 
00(7). GE.O.  .AND.  .LE.l.  FOR  DD( 7)  =  0.,  THE 
SPECTRAL  BROF  CORRESPONDS  TO  A  FLAT  SURFACE 
WITH  AVERAGE  DIRECTIONAL -REFLECTANCE  PROPERTIES 
OF  CONCRETE  AND  ASPHALT.  FOR  00(7)  *  1.,  THE 
SPECTRAL  BRDF  CORRESPONDS  TO  A  DIFFUSE 
REFLECTOR  MULTIPLIED  BY  A  SHADOW-FACTOR 
S(THI.THR)  -  !  COS!  THE  >  +  COS(THR)  )  /? . 

LOGICAL  PARAMETER 

.TRUE.  COMPUTE  COORDINATES  OF  SPECULAR 


THR 


PSI 


ZKM 

MSM 


OD(M) 


- 

*  3. 
' 

*  5. 

*  6, 
7, 


FOR 

FOR 


FOR 

FOR 


SPCULR 


ESURF 

2 

ESURF 

3 

ESURF 

4 

ESURF 

5 

ESURF 

6 

ESURF 

7 

ESURF 

8 

ESURF 

9 

ESURF 

10 

ESURF 

11 

ESURF 

1? 

ESURF 

13 

ESURF 

14 

ESURF 

IS 

ESURF 

16 

ESURF 

17 

ESURF 

18 

ESURF 

19 

ESURF 

20 

ESURF 

21 

ESURF 

22 

ESURF 

23 

ESURF 

24 

ESURF 

25 

ESURF 

26 

ESURF 

27 

ESURF 

28 

ESURF 

29 

ESURF 

30 

ESURF 

3! 

ESURF 

3? 

ESURF 

33 

ESURF 

34 

ESURF 

35 

ESURF 

36 

ESURF 

37 

ESURF 

38 

ESURF 

39 

ESURF 

40 

ESURF 

41 

f  SURF 

47 

ESURF 

43 

ESURF 

44 

ESURF 

46 

ESURF 

46 

ESURF 

47 

ESURF 

48 

ESURF 

44 

ESURF 

SO 

ESURF 

51 

ESURF 

5? 

ESURF 

S3 

ESURF 

54 

ESURF 

SR 

ESURF 

56 

ESURF 

57 

ESURR 

58 

z  so 
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REFLECTION  POINT  ESUPF 

*  .FALSE.  00  NOT  COMPUTE  COORDINATES  OF  SPECULAR  ESURF 

REFLECTION  POINT  ESURF 

ZLAM  =  WAVELENGTH,  MICROMETERS  ESUPF 

IDAY  *  INDEX  FOR  DAYLIGHT  CONDITIONS  AT  POINT  P  ESURF 

=  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES  ESURF 

=  1  IF  SOLAR  ZENITH  ANGLE  AE.  90  DEGREES  ESURF 

IF  IRES  =  FLAG  FOR  INCLUSION  OF  FIREBALLS  ESURF 

=0  IF  NO  FIREBALL  IS  BEING  CONSIDERED  ESURF 

WHICH  is  ALWAYS  THE  CASE  IN  THE  NBA  MODULE.  ESURF 
.GT.  0  IF  FIREBALLS  ARE  BEING  CONSIDERED  ESURE 

ESURE1  =  LOGICAL  PARAMETER  ESURF 

*  .TRUE.  IF  ESURF  IS  CALLED  FOR  THE  FIRST  TIME  FROM  ESURF 
SUBROUTINE  SURRAD  AND  BOTH  EPSD  AND  TXS  ESURF 
ARE  WANTED  IN  ADDITION  TO  SFR  AS  OUTPUTS.  ES'JRF 
WHICH  IS  ALWAYS  THE  CASE  IN  THE  NBR  MODULE  ESURF 

=  .FALSE.  IF  ESURF  IS  NOT  BEING  CALLED  FOR  THE  FIRST  ESURF 
TIME  FROM  SUBROUTINE  SURRAD  AND  A  RECOMPu-  ESURF 
TAT  ION  OF  EPSO  AND  TICS  IS  NOT  NEEDED,  A  ESURF 
POSSIBILITY  WHICH  OCCURS  ONLY  IF  ESURF 

SUBROUTINE  SURRAD  IS  USED  AS  A  UTILITY  ESURT 
ROUTINE  WITH  FIREBALLS  AS  SOURCES.  ESURF 

ESURF 

ATMOUP  COWON  ES’JRF 

TT  -  AMBIENT  ATMOSPHERIC  TEMPERATURE  AT  ALTITUDE  ZXM.  ESURE 

ESURF 

OUTPUT  PARAMETERS  ESURF 

ARGUMENT  LIST  ES'JRF 

SFR  -  FSUBR(M.DD(M).ZLAM’THI,THR,PSI)  ESURF 

■=  BIDIRECTIONAL  REFLECTANCE  DISTRIBUTION  ESURF 

FUNCTION,  l./SR  ESURF 

(COMPUTED  ONLY  IF  SOURCE  IS  ABOVE  THE  HORIZON'  ESURF 

EPSD  -  1.0  -  RHOSUBM{ZLAM’THR,?*PI)  ESURF 

*  DIRECTIONAL  EMISSIVITY,  DIMENSIONLESS.  ESURF 

TICS  »  SURFACE  TEMPERATURE,  DEG  K.  ES’JRF 

POSITN  COPWC'N  ESURF 

THIS  OUTPUT  OBTAINS  ONLY  IE  MSM*?  AND  SPCULR=.TRUE.  ESURF 

SPCLAT  -  NORTH  LATITUDE  OF  POINT  ON  SMOOTH  HORIZONTAL  ESURF 

WATER  SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  ES'JRF 

THE  SOURCE  TO  THE  DETECTOR  (COMPUTED  IN  ESUPF 

SUBROUTINE  GL1TTRI,  RADIANS  ESURF 

SPCLON  -  EAST  LONGITUDE  OF  POINT  ON  SMOOTH  HORIZONtAl  ESURF 
WATER  SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  ESURC 
THE  SOURCE  TO  THE  DETECTOR  (COMPUTED  IN  tSURF 

SUBROUTINE  GLITTR ) ,  RADIANS  ESURF 

CCC  ESURF 

DIMENSION  DC"'7'1ALPMf7),BETM(71,GAMM'71,RM00O',RMP|(?)>LL(7)  ESU°C 

DIMENSION  WV4;i8',WVS(16, ,WV5(l?),WV7(P3),GTHIO(7)  ESURF 

DIMENSION  SP4 ( 1 U 1 , Sp5 ( 16 1 , Sp6 ( 1? ) , SR7 ( 23 )  ESUP" 

COMMON/ATMDUP/  H  ,S8AR , IDOPN,PP,RHO,TT , SNI ' 301 .HRHO.FEHSEQ  ATMOUP 

COWON/POSI  IN/  PC SL AT, POSLON.PO SALT, SPCLAT, SPCLON  POSITN 

%  ,C1?LAT,C1?L0N,CI?ALT  POSITN 

LOGICAL  SPCULP , ESURF 1  ESURF 

DATA  ( ALPM!  11,1*1,  7)  /  0..0.  ,3.  ,3.  ,?.5,2.5,4,  /  ES'JRF 

DATA  (8ETM(I',I=1.  71/  0.,0., 0.9, 0.6,0. 5,0.5, 0.5  /  ESUpr 

DATA  (GAMMM',I  =  1,  7)  /  0.  .0.  .1 .  ,1 /  ES,lpr 

DATA  (RMOO'n.l'I,  71  0.  ,0. ,  13. ,  P.5.1 .  ,1 ..  10.5  /  ESURr 


69 

60 

61 

6? 

63 

64 

65 
65 

67 

68 

69 

70 

71 
7? 

73 

74 

75 

76 

77 

78 

79 

80 
81 
8? 

83 

84 

85 

86 

87 

88 
89 
9P 
91 
9? 
9? 
94 
96 

96 

97 
09 
99 

ion 

101 

in: 

103 
Ui4 
r>9 
in*. 
10 7 
? 
7 

9 

110 

111 

11? 

113 

114 


ccc 

cc 


DATA  (PIP! ( ! ), 1*1,  7)  7  0..0. ,3.,4.,4. ,10. .1.  / 

DATA  ( GTM1  Of  1 ),  1*1, 7)  /  1.  ,0.  .1.024,1 .015,1  .M3, 1 .095.1.011  / 

DATA  (LLU ),  1-1,7)  /  0,0,0,18.16,12,23  / 

DATA  PI  /  3.141592653590  / 

SPECTRAL  PARAMETERS  FOR  SAND. 

DATA  (WV4{ I) , t-1,18)  /  2.00,2.05,2.18,2.30.2.45.2.50,2.63,2.73, 

*  2.88,2.95,3.20,3.30,3.60,3.75,3.90,4.35, 

*  4.90,5.00  / 

DATA  (SP4(1), 1-1,18)  /  0.205,0.238.0.209.0.206,0.177,0.174,0.148. 

*  0.114,0. 080, 0.MO.0. 070, 0.093,0. 145, 0.162, 

*  0.152,0.076,0.031,0.035  / 

SPECTRAL  PARAMETERS  FOR  SOIL. 

DATA  (WVS(I), 1-1,16)  /  2.00,2.08.2.25,2.50.2.62.2.70,2.77.2.92, 

*  3.15,3.50,3.70,3.82,4.10,4.60,4.77,5.00  / 
DATA  (SPS(t). 1-1.16)  /  0.262,0.272,0.257,0.227,0.198,0.095,0.067, 

*  0.061,0.067.0.112,0.158,0.177,0.195,0.158, 

*  0.142,0.113  / 

SPECTRAL  PARAMETERS  FOR  VE6ETATI0H. 

DATA  (HV6(1),1*1,12)  1  2.00,2.20,2.64,2.78,2.96.3.03.3.16,3.22. 

*  3.42,3.58,3.95,5.00  / 

DATA  (SP6(I), 1-1,12)  /  0.129,0.212,0.059.0.059,0.120,0.120.0.033. 

*  0.033,0.074.0.074,0.037,0.021  / 

SPECTRAL  PARAMETERS  FOR  UR BAR  MATERIALS. 

DATA  (WV7(1),1*1,23)  /  2.00,2.12,2.24.2.26,2.36,2.47,2.55,2.63, 

*  2.70,2.85,2.89,3.00,3.10,3.24,3.62,3.89, 

*  4.00,4.10,4.26,4.42,4.70,4.83,5.00  / 

DATA  (SP7(I), 1-1,23)  /  0.347, 0.348, 0.326, 0.278,0.272,0. 295,0. 299. 

*  0.296,0.272,0.145,0.118,0.090,0.091,0.100, 

*  0.149,0.193.0.231,0.238.0.240.0.254,0.246,0.229,0.215  / 


CHECK  MATERIAL  INDEX  FOR  PROPER  RANGE 
IF(  (HSH.LT.l)  .OR.  (MSM.GT.7)  )  SO  TO  101 
IF(  .N0T.ESURF1  )  GO  TO  50 

CC  6ET  SURFACE  TEMPERATURE  TAKEN  TO  8E  AIR  TEMPERATURE 

CC  AT  ALTITUDE  ZKM. 

CALL  ATM0SU(2.2KM) 

TKS  •  TT 

50  IF(  HSM.6T.1  )  GO  TO  99 

CC  SET  PROPERTIES  FOR  MSM-1  (THE  VALUE  -1.0  FOR  SFR  IS  AN 

CC  ARBITRARY  DEFAULT  SETTING  VHICH  WILL  NEVER  BE  USED) 

SFR  -  -1.0 

IF (  (IDAY.EQ.l)  .OR.  ( IFIRES.GT.O)  )  SFR  -  DD(1)/PI 
EPSD  *  l.O-DO(l) 

RETURN 

99  IF (  MSM.GT.2  )  GO  TO  100 

CALL  GLITTR(TOI,DD(2).SPCULR,2LAM.IDAT,IF1RES.ESURF1, SFR, EPSD) 
RETURN 

100  ALPHA  •  ALPN(MSM) 

SETA  -  BETM(MSM) 

GAFWA  >  GAMM(NSM) 

RM7  «  RMOO(MSM) 

RMP  .  RHPI(MSM) 

LLM  •  LL(MSN) 

GTHIOA  •  GTHIO(HSH) 

CC  OBTAIN  THE  SPECTRAL,  NORMAL-INCIDENCE-HEMISPHERICAL 

CC  REFLECTANCE,  RHOW(ZIAN),  BASED  ON  TABLE  2-3  IN  TEXT. 

GO  TO  (101,101,103,104,105,106,107),  MSN 


ESt*F 

115 

ESURF 

116 

ESURF 

117 

ESURF 

118 

ESURF 

119 

ESURF 

120 

ESURF 

121 

ESURF 

122 

ESURF 

123 

ESURF 

124 

ESURF 

125 

ESURF 

126 

ESURF 

127 

ESURF 

128 

ESURF 

129 

ESURF 

130 

ESURF 

131 

ESURF 

132 

ESURF 

133 

ESURF 

134 

ESURF 

1" 

ESURF 

136 

ESURF 

137 

ESURF 

138 

ESURF 

139 

ESURF 

140 

ESURF 

141 

ESURF 

142 

ESURF 

143 

ESURF 

144 

ESURF 

145 

ESURF 

146 

ESURF 

147 

ESURF 

148 

ESURF 

149 

ESURF 

150 

ESURF 

151 

ESURF 

152 

ESURF 

153 

ESURF 

154 

ESURF 

155 

ESURF 

156 

ESURF 

157 

ESURF 

158 

ESURF 

159 

ESURF 

160 

ESURF 

161 

ESURF 

162 

ESURF 

163 

ESURF 

164 

EVURF 

165 

ESURF 

166 

ESURF 

167 

ESURF 

168 

ESURF 

169 

ESURF 

170 

ESURF 

171 

25 2 


101  WRIT£{6.13)  MSH 

ESURF 

17? 

1? 

FORMAT  (44 HO  ERROR  IN  VALUE  OF  HSM-($EE  ESURF).  MSH*, 15) 

ESURF 

173 

CALL  EXIT 

ESURF 

174 

cc 

FOR  SNOW  (MSM'3) 

ESURF 

175 

103  RHOM  -  (0.44-0.12*(ZL.AK-2.  ))*(! .0-09(3) *5. 712. ) 

ESURF 

176 

GO  TO  110 

ESURF 

177 

CC 

FOR  SAND  (MSM*4) 

ESURF 

178 

104 

CALL  LINEAR  (ZLAM,RHON,WV4,SP4,LLM) 

ESURF 

179 

GO  TO  110 

ESURF 

180 

CC 

FOR  SOIL  <MSM=5) 

ESURF 

181 

105  CALL  LINEAR  (ZLAM,RHOM,WV5,SP5,LLM) 

ESURF 

182 

GO  TO  110 

ESURF 

183 

CC 

FOR  FOLIAGE  <MSM*6) 

ESURF 

184 

106  CALL  LINEAR  (ZLAM,RH0M,WV6.SP6,LLN) 

ESURF 

185 

GO  TO  110 

ESURF 

186 

CC 

FOR  URBAN  MATERIAL  (MSM*7) 

ESURF 

187 

107 

CALL  LINEAR  (ZLAM,RHOM,WV7.SP7.LLM) 

ESURF 

188 

CC 

COMPUTE  APPROXIMATE  VALUE  FOR  THE  SPECTRAL  PARAMETER 

ESURF 

189 

CC 

RH02M(ZLAM)  BT  USING  EQ . ( 6 ’ * )  IN  TEXT. 

ESURF 

190 

no 

RHOZM  -  RHOH/(PI*GTHIOA) 

ESURF 

191 

cc 

PROTECT  AGAINST  ABORT  FOR  GRAZING  RATS. 

ESURF 

19? 

CTHI  •  COS(  THI  ) 

ESURF 

193 

CTHR  ■  COS(  THR  ) 

ESURF 

194 

cc 

IF  THI  OR  THR  GREATER  THAN  B9.9  DEGREES  RESET  TO 

89.9  . 

ESURF 

195 

IF (  ABS(CTHI ) .LT.1.745E-03  )  CTHI  »  1.745E-03 

ESURF 

196 

IF (  ABS(CTHR1 .LT.1.745E-03  )  CTHR  *  1.745E-03 

ESURF 

197 

cc 

EVALUATE  AUXILIARY  PARAMETERS  NEEDED  REGARDLESS  OF  PRESENCE 

ESURF 

198 

cc 

OF  SOURCE. 

ESURF 

199 

RBAR  -  0.5*(RMZ*RMP) 

ESURF 

200 

SA  *  ALPHA*BETA 

ESURF 

201 

P1A  *  (1.0-EXP(-SA))/SA 

ESURF 

20? 

cc 

NEED  NOT  COMPUTE  SFR  IF  NEITHER  SUN  NOR  FIREBALL 

IS 

ESURF 

203 

cc 

CONSIDERED  AS  A  SOURCE,  SO  SET  IT  (ARBITRARILY) 

TO  -1.0 

ES'JRF 

204 

SFR  -  -1.0 

ESURF 

205 

IF (  (IDAY.EQ.O)  .AND.  ( IFIRES.EQ.O)  )  GO  TO  124 

ESURF 

206 

IF (  (THI. GT. 0.0)  .OR.  (THR. GT. 0.0)  )  GO  TO  120 

ESURT 

207 

cc 

EVALUATE  SFR  AVERAGED  OVER  AZIMUTH  ANGLES,  FROM 

EQ.(3A)  IN 

ESURF 

208 

cc 

TEXT. 

ESURF 

209 

SFR  •  RH0ZM*(l.O*#BAR*PlA*EXP(-2. ‘ALPHA)) 

ESURF 

210 

CTHR  •  1.0 

ESURF 

211 

GO  TO  122 

ESURF 

212 

120  ABTF  -  BETA*(l.O-A8S(1.0-2.»PSI/PI)) 

ESURF 

213 

CGAM  -  CTHI«GAW«  4  CTHR**GAMMA 

ESURF 

214 

RMPSI  -  RMZ  -  (RMZ-RMP)*P5I/PI 

ESURF 

215 

CC 

EVALUATE  EQ.(l)  IN  TEXT. 

ESURF 

216 

SFR  -  RHOZM* ( 1 ,0*RMPSI *EXP(  -  ALPHA*  (CGAM+ ABTF ) )) 

ESURF 

217 

12? 

IF (  MSM.NE.7  )  GO  TO  124 

ESURF 

2iB 

cc 

FOR  MSM=7,  EVALUATE  EQ.(171  IN  TEXT  FOR  SFR. 

ESURF 

21R 

URBAN  *  RHOZ***00(  7)* (CTHI  *CTHR)  72. 

ESURF 

220 

SFR  *  URBAN  *  $FR*(1. 0-00(7)) 

ESURF 

221 

124 

IF (  .NOT. ESURF 1  )  RETURN 

ESURF 

222 

CC 

PREPARE  TO  COMPUTE  DIRECTIONAL  EMISSIVITT, 

ESURF 

223 

CC 

EVALUATE  EO.(IO)  IN  TEXT  WITH  THETA  REPLACED  BT 

THR. 

ESURF 

224 

FGAFW  *  EXP(-ALPHA*CTHR**GAm\) 

ESURF 

225 

[GAM  *  GAMMA *0.25 

ESURF 

226 

GO  TO  (126,128),  1GAM 

ESURF 

2?7 

cc 

EVALUATE  EO.(B)  IN  TEXT. 

ESURF 

228 

253 


126 

P2GAH  •  (1.0-(ALPHA+1.)*EXP(-ALPHA))/(ALPNA*ALPHA) 

ESURF 

229 

GO  TO  no 

ESURF 

230 

CC 

EVALUATE  EQ.(9)  IN  TEXT. 

ESURF 

231 

128 

P2GAM  *  (1.0-EXP(-ALPHA))/(2. ‘ALPHA) 

ESURF 

23? 

CC 

FRHOM  =  DIRECTIONAL-NEMISPHERICAL  REFLECTANCE 

ESURF 

233 

CC 

EPSO  =  DIRECTIONAL  EMISSIVITY 

ESURF 

234 

CC 

EVALUATE  £0.(6)  IN  TEXT,  8UT  WITH  THI  REPLACED  BT  THR  IN  THE 

ESURF 

235 

CC 

ANTICIPATION  THAT  FRHOM  WILL  BE  USED  IN  £0.(12)  FOR  THE 

ESURF 

236 

CC 

DIRECTIONAL  EMISSIVITY. 

ESURF 

237 

130  FRHOM  =  PI*«HOZH  *  (1.0*2.*P1A*P2GAM*R8AR*FGAHM) 

ESURC 

238 

IF {  MSM.NE.7  )  GO  TO  140 

ESURF 

239 

CC 

FOR  MSM=7,  EVALUATE  EQ.(18)  IN  TEXT,  BUT  WITH  THI  REPLACED  BY 

ESURF 

240 

CC 

THR  IN  THE  ANTICIPATION  THAT  FRHOM  WILL  BE  USED  IN  EQ.(19)  FOR 

ESURF 

241 

CC 

THE  DIRECTIONAL  EMISSIVITY. 

ESURF 

242 

FRHOM  -  ( 1 . -DD (71) *FRHOM  +  DD( 7 )*RH02M*P1*( 0. 50«CTHR  +  0.333333) 

ESURF 

243 

CC 

EVALUATE  £0.(12)  IN  TEXT. 

ESURF 

244 

140 

EPSD  =  1.0-FRHOM 

ES'JRF 

245 

RETURN 

ESURF 

246 

END 

ESURF 

247 

FUNCTION  FRAr  (  A,  B,  X.  Y  ) 

FRAC 

2 

FRAC 

3 

*FRAC»  calculates  the  fraction  of  INTERVAL  (A.BI 

FR  AC 

4 

CONTAINED  IN  INTERVAL  IX, V)  Iff  (a,e; 

■LE.  (X,Y)  ) 

OR 

FRAC 

5 

COVERED  BY  INTERVAL  (  x , Y s  IF(  (A,B) 

.GT.  (X.Y)  ) 

. 

FRAC 

b 

FRAC 

7 

D  =  A  -  8 

FRAC 

8 

FR1  *  AMAX1(  AMINK  (A  -  Y)/C,  1.  ],  0.  I 

FRAC 

9 

FR2  '  AMAX1!  AMINH  (X  -  I"/D,  1.  ),  0.  ) 

FRAC 

10 

FRAC  -  FR1  +  FR2-1. 

FRAC 

11 

RETURN 

FRAC 

1? 

END 

FRAC 

13 

2  b  4 


ccc 

c 

c 

ccc 

c 

c 

c 

c 

c 

ccc 


c 

c 

c 

c 

ccc 

c 

c 

c 

c 

c 


SUBROUTINE  FRESNL (ZLAM.OMEGA.RHO)  FRESNL 

FRESNL 

SUBROUTINE  FRESNL  EVALUATES  THE  FRESNEL  ( SPECULAR)  FRESNL 

MONOCHROMATIC  REFLECTANCE  OF  A  SMOOTH  WATER  SURFACE.  GIVEN  FRLSNL 
THE  WAVELENGTH  AND  ANGLE  OF  INCIDENCE.  FRESNL 

FRESNL 

INPUT  PARAMETERS  FRESNL 

ARGUMENT  LIST  FRESNL 

2LAW  -  WAVELENGTH  'M!CP0MEtER5)  FRESN. 

OMEGA  -  ANGLE  OF  INCIDENCE  (WITH  RESPECT  TO  NORMAL  TO  FRESNL 
SMOOTH  ELEMENT  Of  WATER  SURFACE'  (RADIANS'  FRESNL 

FRESNL 

OUTPUT  PARAMETER  FRESNL 

ARGUMENT  LIST  FRESNL 

RHO  -  FRESNEL  MONOCHROMATIC  REFLECTANCE  OF  PLANE,  FRESNL 

UNPOLAR 1  ZED  ELECTROMAGNETIC  WAVE  INCIDENT  AT  FRESNL 

angle  omega  on  plane,  absorb’ng  surface  with  fresnl 

COMPLEX  INDEX  OF  REFRACTION  NN  -  5N  -  1*SX  FRESNL 

FRESNL 

DIMENSION  $NNU(2??) ,  SKMJ(2?2)  FRESNL 

FRESNL 

THE  VALUES  OF  THE  COMPLEX  INDEX  OF  REFRACTION  ARE  TAKEN  FROM  FRESNL 
H.  0.  DOWNING  AND  D.  WILLIAMS,  OPTICAL  CONSTANTS  OF  WATER  IN  FRESNL 
THE  INFRARED,  J.  GEOPHYS.  RES.  ROL .  80,  1656(1975'.  FRESNL 

FRESNL 

DATA  (SNNUU),I  =  1,1A2)  /  1.321, 1.322. 1.322, 1.323, 1.324,1. 324,  PRESS. 

1. 325,1.325,1. 325, 1.325, 1.325, 1.325.  FRESNL 

1.326, 1.326 ,1.326, 1.327, 1.327, 1.327, 1.327, 1.327,1.328. 1.328.  FRESNL 

1.329,1.329,1.329.1.330,1.330,1.330,1.331.1.332,1.332,1.333,  FRESNL 

1.334, 1.334, 1.335. 1.332, 1.337. 1.338, 1.3»0, 1.340, 1.341, 1.312,  FRESNL 

1.343.1.344,1.344,1.345,1.346,1.347,1.348,1 .349,1.349,1.350.  F»E5NL 

1.351, 1.352, 1.353. 1.354, 1.355, 1.357, 1.358. 1.358, 1.360.1. 361,  FRESNL 

1. 361. 1.363, 1.365, 1.366, 1.367, 1.369. 1.370. 1. 371, 1. 372, 1.3T4,  FRESNL 

1.375.1.377.1.378.1.379.1.382.1  .383,1.386.1.387,1.389,1  .302,  PRESS'. 

1.392,1.394,1.396,1.398,1.400,1 .403.1.406,1.407,1.410,1.413,  ERESNL 

1.415. 1.418. 1  .421, 1  .425, 1.427, 1.431  .1 .434,1.437,1.441,1  .444,  FRESNL 

1.448.1.451.1.454.1.457.1.461.1  .464 ,1 .467,1 .472,1  .474 , 1 .477,  FRESNL 

1.479,1,482.1.485.1.486,1.487,1 .487,1 .48’, 1 .486,1 .493.1 .480,  FRE5N- 

1.476. 1.471, 1.465, 1.457,1. 450,1.442, 1.434, 1. 4?6, 1.417,1, 40\  FRE5S. 

1.398, 1.386, 1.376. 1.364, 1.353, 1.342, 1.329, 1.317, 1.305, 1.293  /  FRESNL 

DATA  (SNNUil),  1  =  143, 222)  /  1.282,1.271,1.258,1.246.1.233,  PRESS. 

1 .220 ,1 .212,1. 19°, 1,19 1,1. 183,  FP;SNL 

1,1 77, 1,171, 1.165, 1.161. 1.158, 1.154, 1.149, 1.144, 1.141, 1.139.  FRESNL 

1.1 38, 1,1 38,1. 139,1.144,1.145, 1.1 67, 1.1 66, 1.172, 1.179,1. 185,  FRESNL 

1.191.1.195.1  .200,1.205,1  210,1 .214 ,1 .218,1 .221 ,1 .224.1  ,2?7,  FRESNL 

1.230. 1.232, 1.235, 1.239, 1.240, 1.241, 1.243, 1.246, 1.247, 1.249,  FRESNL 

1.250, 1.252, 1.264, 1.265, 1.256,1 .257, 1.259,1. ’60, 1.261. 1.265,  FRESNL 

1. 270, 1. 274. 1. 277, 1. 280, 1.282, 1.295,1. 287, 1.2B9, 1.291. 1.293,  F»ESN. 

1.294,1.295,1.296,1.296,1.298,1.300,1.301,1.301,1 .303,0.0  /  FPfSNL 


DATA  (SKNUi 1  -,1*1.112]  /  1.26E-2, 1 .29E-2.1 . 33E-2.1 . 37E-? ,  FRESNL 

*  1 .405-2,1 .  43E-2.1 .46E-2.1 .485 -2,  PRESS. 

*  1.51E-2,1.53E-2,1.55E-?,1.57E-2,1.57E-?,:.-/E-2, 1.565-2,1.545-2,  FRESN. 

*  1 . 52E-2 , 1 .49E-2.1 , 455-2,1 .40E-2, 1  . 36F-2.1 . 315-2,1 . 265-2,1 . 22E-2,  PRESS'. 

*  1.175-2,1 .12E-2,1.08E-2,1. 045-2,1 .OOE-2,9.66E-3,9.27E-3,8.96E-3.  PR55N. 

*  8.64P-3,8.33E-3,8.065-3,7.79E-3,7.49E-3,7.2?E-3,6.965-3,6.7  35-3,  FRESSs. 

*  6. 535-3,6. 31 E -3,6. 085 -3 ,6. 865-3,5.685- 3, 5. 495- 3, 5. 3 IE- 3,5. 12F- 3,  PR55NL 

*  4.94E- 3, 4, 795.3, 4, 655- 3, 4. 505-3, 4. 335-3. 4.22E-3.4. 105-3,3.095-3,  FR5SS. 


2 

7 

i 

c 

6 

7 

8 
9 

i  -1 

n 

1? 

t  j 

14 

15 

16 
17 

19 

i« 

20 
2! 
2? 

23 

24 

25 

26 

27 

28 

29 

30 

3] 

37 

33 

34 
36 

36 

37 

39 

40 

41 

43 
47 

44 

45 

46 
4’ 
t- 
4C 

5? 

o 

5? 

c  7 
C4 
EC 
EC 
E  7 

EE 


3.EI9E-3, 3. 78E-3, 3.70E-3,3.63E-3,3.52E-3,3.48E-3 ,3.*OE-3,3.39E-3, 
3.35E-3,3.36E-3,3,35E-3,3.40E-3,3.47£-3,3.55E-3,3.63£-3,3.76E-3, 
3.89E-3,4.05£-3,4.24E-3,4.49E-3,4.73E-3,5.06E-3,5.38E-3,5.79E-3. 

6 .25E-3,S.83E-3,7.37E-3,8.07E-3,8.66E-3,9.41E-3,1.01E-2,1 . 10E-2, 
1.18f-2,1.28E-2,1.38E-2,1.51E-?.1.63E-2.1.?7E-2,1.93E-2,2.10E-2, 
2.29E-2,2.50E-2,2,62E-2,2. 79E-2.2 . 9  3. 15E-2.3.4BE-2, 3. 85E-2, 

4.22E-2.4, 62E-2.5 .04E- 2,5. 50E- 2,6 .OOE-2,6. 53E-2.7 .16E-2, 7 .85E-2  / 
DATA  (SKItU(I).  1*113. 222)  /  8.55E-2.9.20E-2.9.94E-2.1.10E-1, 

1.1 7£— 1 . 1 .25E-1 ,1 . 34E-1 ,1 -44E-1, 
1.53E-1 ,3 .63E-1.1  73E-1.1 .83E-1.1 .95E-1,2.04£-1 ,2 .12E-1.2. 20E-1, 
2.28£-l,2.36e-1.2.43E-1.2.SOE-1.2.55E-1.2.62E-  1.2.67E-1 .2.72E-1, 
2.76E-1 ,2.79£-l,2.02E-l,2.82E-l,2.81E-l ,2.80E-1,2.76E-1,2.7’E-1, 
2.65E-1,2.S8E-1,2.49E-1,2.39£-1,2.29£-1,?.18E-1,2.06£-1,1.94E-1, 

1 .80E-1 .1.67E-1.1 .54£-l,1.42E-l,1.31E-l,l .21E-1.1 . 12E- 1 ,1 .02E-1. 
9.27E-2.8.36E-2.7 .44E-2.6 .49E-2, 5 .48E-2,4.62E-2,3. 80E-2.2.82E-2, 
2.05E-2, 1 ,86£-2,l .64E-2.1 .45E-2.1 -27E-2, ; .05E-2,8.55E-3,7.32£-3, 
6.27E-3,5.36E-3,4.82E-3,4.37E-3>4.02E-3,3.30E-3.2.98E-3,2.70E-3. 
2.57E-3,2.48E-3,2.43E-3.2.39E-3,2.34E-3,2.3!E-3.2.27E-3,2.24E-3, 
2.19E-3,2.15E-3,2.12E-3,2. 10E-3 ,2.07E-3,2.05E-3.2.00E-3,1 .95E-3, 
1.90E-3.1.58E-3.1.23E-3.9.68E-4,  '.92E-4,6.52E-4,5.42E-4,4.65£-«, 
4,16E-4,3.76E-4,3.45E-4 ,3. 38E-4 ,3.41E-4,3. 59E-4.4 .OOE-4,4.52E-4, 
S.14E-4,6.17E-4,7.31E-4.9.00E-4,1,10€-3.0.C  ' 


THE  FORMULAS  FOR  THE  REFLECTANCE  ARE  TAKEN  FROM,  E.  G.,  D. 
NENZEl  (EDITOR),  FUNDAMENTAL  FORMULAS  OF  PHYSICS,  (P.  422), 
OOVER  PUBLICATIONS,  INC. ,  NEW  YORK.  1960. 


H. 


HAVE  .  1 .0C+O4/ZLAM 

IF (  HAVE. GE. 4000.  )  GO  TO  10 

HX  -  FRACTIONAL  NUMBER  Of  DATA  POINTS  CORRESPONDING  TO  HAVE. 

WX  -  1.0  +  (HAVE-2000. )/10. 

GO  TO  20 

10  WX  *  201.  4  (WAVE-4000. )/50. 

1J  -  FIRST  DATA-POINT  INDEX  ABOVE  HAVE. 

20  IJ  *  VI41.0 

DELW  •  FRACTIONAL  PART  Of  DATA  INTERVAL  CORRESPONDING  TO  HAVE. 
OEIH  .  HX  -  FLOAT(IJ-l) 

SN  -  SNNU(IJ-l)  4  (SNNU'IJ)-SNNU(1J-1))*0ELH 

SK  =  SKNU(IJ-l)  ♦  (SKNU(IJ)-SKNU(IJ-l))40aH 

SNSQ  *  SIN(  OMEGA  )«2 

SNK5  -  SN*SN-SK*$K-$NSC 

FNK  *  (2,*SN*SK)442 

TRM  -  SQKT(  5NKS*SNKS4fHK  ) 

SAPSO  ■=  O.SO*(TRH4SNKS) 

SAMSQ  -  0.5C*(TRH-SHKS) 

CC  »  SAPSO* SAM SO 
SAP  =  SORT(  SAPSO  ) 

EE  -  COS(  OMEGA  ) 

EE*£E 
?.*SAP«EE 
SN SO/EE 
00*D0 
?.*SAP*00 

(CC-AP£2*£ES0) /(CC*APE2+EESC) 

RS*(CC4DOSQ)/(CC-AP024DDSO) 


EESO 
APE2 
OD 
00  SQ 

APO? 

RS  * 
RHO 
RETURN 
END 


fRESNL 

59 

FRESNL 

60 

FRESNi. 

61 

FRESNL 

62 

FRESNL 

63 

FRESNL 

64 

FRESNL 

65 

FRESNL 

66 

FRESNL 

67 

FRESNL 

68 

FRESNL 

69 

FRESNL 

70 

FRESNL 

•'l 

FRESNL 

72 

FRESNL 

73 

FRESNL 

74 

FRESNL 

75 

FRESNL 

76 

FRESNL 

77 

FRESNL 

78 

FRESNL 

79 

FRESNL 

eo 

FRESNL 

81 

FRESNL 

82 

FRESNL 

83 

FRESNL 

84 

FRESNL 

85 

FRESNL 

86 

FRESNL 

87 

FRESNL 

88 

FRESNL 

8« 

FRESNL 

90 

FRESNL 

91 

FRESNL 

92 

FRESNL 

93 

FRESNL 

9i 

FRESNL 

95 

FRESNL 

Of 

FRESNl 

97 

FRESNl 

9S 

FRESNL 

99 

FRE’NL 

IOC 

FRESNL 

101 

FRESNL 

102 

FRESNL 

10’ 

FRESNL 

104 

FRE5NL 

10c 

FRESNL 

106 

FRESNL 

107 

FRESNl 

108 

FRESNl 

109 

FRESNL 

110 

FRESNL 

111 

FRESNL 

11? 

FRESNL 

in 

FRESNL 

114 

FRESNL 

115 
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SU8R0UTINF  GCRCLEfPlLAT.PlLON.PSLAT.PSlON.ALPU.ALP^.PBLAT.PPLON)  GCRCLE 

? 

ccc 

GCRCLE 

3 

c 

FOR  THREE  POINTS  P2,  P?,  AND  P3  ON  A  GREAT  CIRCLE,  SUBROUTINE 

GCRCLE 

4 

c 

GCRCLE  COMPUTES  THE  LATITUDE  AND  LONGITUDE  OF  THE  INTER¬ 

GCRCLE 

c 

MEDIATE  ?0 INT  P2,  GIVEN  THE  LATITUDES  AND  LONGITUDES  OF  THE 

GCRCLE 

6 

c 

END  POINTS  PI  AND  P3,  THE  CENTRAL  ANGLE  ALPI3  BETWEEN  THE 

GCRCLE 

7 

c 

CENTRAL  RAYS  TO  PI  AND  23,  AND  THE  CENTRAL  ANGLE  ALPI2 

GCRCLE 

8 

f 

BETWEEN  THE  CENTRAL  RAYS  TO  PI  AND  P?. 

GCRCLE 

9 

ccc 

GCRCLE 

10 

c 

INPUT  PARAMETERS 

GCRCLE 

11 

c 

ARGUMENT  LIST 

GCRCLE 

12 

c 

PlLAT  -  NORTH  LAT1TU0E  OF  POINT  PI,  RADIANS 

GCRCLE 

13 

c 

PI LON  -  EAST  LONGITUDE  OF  POINT  PI,  RADIANS 

GCRCLE 

14 

c 

P3LAT  -  NORTH  LATITUDE  OF  POINT  P3,  RADIANS 

GCRCLE 

15 

c 

P3LON  -  EAST  LONGITUDE  OF  POINT  P3,  RADIANS 

GCRCLE 

16 

c 

ALP13  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

GCRCLE 

17 

c 

PI  AND  P3,  RADIANS 

GCRCLE 

18 

c 

ALP12  -  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  POINTS 

GCRCLE 

19 

c 

PI  AND  P2,  RADIANS 

GCRCLE 

20 

ccc 

GCRCLE 

21 

c 

OUTPUT  PARAMETERS 

GCRCLE 

22 

c 

ARGUMENT  LIST 

GCRCLE 

23 

c 

P2LAT  -  NORTH  LATITUDE  OF  POINT  P2,  RADIANS 

GCRCLE 

24 

c 

P2L0N  -  EAST  LONGITUDE  OF  POINT  P2,  RADIANS 

GCRCLE 

25 

ccc 

GCRCLE 

26 

DATA  FI  /  3.141592653590  / 

GCRCLE 

27 

ccc 

GCRCLE 

28 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P3 

GCRCLE 

29 

c 

POINT  N  IS  NORTH  POLE 

GCRCLE 

30 

ccc 

GCRCLE 

31 

5INCOS  -  SIH( P3LAT)  -  COS( ALP13'.*SIN(P1LAT) 

GCRCLE 

3? 

SINCOS  *  S!nCOS/(SIN(ALP13)‘COS(P1LAT)) 

GCRCLE 

33 

AMOA  •  ACO${  SINCOS  ) 

GCRCLE 

34 

ccc 

GCRCLE 

35 

c 

CONSIDER  THE  SPHERICAL  TRIANGLE  P1-N-P2 

GCRCLE 

36 

ccc 

GCRCLE 

37 

COSSIN  -  COS ( ALP  12) *SIN( PlLAT) 

GCRCLE 

3B 

SINCOS  --  S.n:aLP12)»COS(P1LAT) 

GCRCLE 

39 

P2LAT  -  AS I rt {  COSSIN  ♦  SINCOS«COS(AMDA)  ) 

GCRCLE 

40 

ccc 

GCRCLE 

41 

c 

AGAIN,  CONSIDER  SPHERICAL  TRIANGLE  P1-N-P2 

GCRCLE 

42 

ccc 

GCRCLE 

43 

PI?  *  PI+PI 

GCRCLE 

44 

P3MP1  *  P3LON-P1LON 

GCRCLE 

45 

P12L0N  *  AS  INI  SlN(AMDA)*SINIAlP12)/C0S[P?i.AT)  ) 

GCRCLE 

46 

P2L0N  *  PllON  +  P12L0N*SIGN(1.U,P3MP1) 

GCRCLE 

47 

IFf  ABS( P3MP1 J.LE.PI  I  GO  TO  ID 

GCRCLE 

48 

P2LPN  =  P’.LOH  -  Pl?LON*SIGN( 1 ,0,P3MP1 ) 

GCRCLE 

49 

10 

!f(  P2L0N.LT, 0.0  )  P2L0N  -  P210N+PI? 

GCRCLE 

50 

IF{  P2L0N.GE.PI?  )  P2L0N  *  P2LON-PI2 

GCRCLE 

51 

RETURN 

GCRCLE 

5? 

END 

GCRCLE 

53 
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SUBROUTINE  GE0REA(HA1,GC1,GL1.HA?.GC2,GL2,SR?1,EL21,AZ21) 

GEOREA 

2 

ccc 

GEOREA 

3 

c 

SUBROUTINE  GEOPEA  (A  MODIFIED  HARC  ROUTINE).  GIVEN 

THE 

GEORFA 

4 

c 

GEOGRAPHIC  COORDINATES  OF  TWO  POINTS,  PROVIDES  THE 

SLANT  RANGE, 

GFOREA 

5 

c 

ELEVATION  ANGLE.  AND  AZIMUTH  ANGLE  OF  POiNT  2  WITH 

RESPECT  TO 

GEOREA 

6 

c 

POINT  1. 

GEOREA 

7 

ccc 

GEORFA 

8 

c 

INPUTS  FROM  CALL  STATEMENT 

GEOREA 

9 

c 

HA1  =  ALTITUDE  OF  POINT  1,  CM 

GEOREA 

10 

c 

GC 1  *  COLATITUDE  OF  POINT  1.  RADIANS 

GFOREA 

11 

c 

GLL  =  EAST  LONGITUDE  OF  POINT  1,  RADIANS 

GEOREA 

12 

c 

HA2  =  ALTITUDE  OF  POINT  2,  CM 

GEOREA 

13 

c 

GC2  -  COLATITUDE  OF  POINT  2,  RADIANS 

GEOREA 

14 

r 

GL2  =  EAST  LONGITUDE  OF  POINT  2.  RADIANS 

GEOREA 

IS 

c 

OUTPUTS 

GEOREA 

IS 

c 

SR21  -  SLANT  RANGE  OF  POINT  2  RELAT1VF  TO  POINT  1.  CM 

GEOREA 

17 

c 

EL 21  »  ELEVATION  OF  POINT  2  RELATIVE  TO  POINT 

1,  RADIANS 

GFOREA 

18 

c 

AZ21  =  AZIMUTH  OF  POINT  2  RELATIVE  TO  POINT  1 

.  RADIANS 

GEORFA 

19 

ccc 

GEOREA 

20 

CALL  GEOTAN ( HA1 ,GC1 ,GLl ,HA2,GC 2, GL2.XE21 ,VN21 ,ZV21 ) 

GEOREA 

21 

XYSQ  *  XE21**2  +  YN21**2 

GEOREA 

22 

SR 21  -  SQRT(XYSQ  ♦  ZV21**2 ) 

GEOREA 

23 

EL 21  =  ATAN2(  ZV21 , SQPT( XYSQ}  ) 

GEOREA 

24 

AZ21  -  0.0 

GFOREA 

2S 

IF (  XYSQ. GT. 0.0  )  AZ21  =  ATAN?(  XE21.YN21  ) 

GFOREA 

26 

RETURN 

GEOREA 

27 

END 

GEORFA 

28 

SUBROUTINE  GE0TAN(HA1,GC1,GLL,HA2,GC?.GL2,XE21,YN?1,ZV21) 

GEO  TAN 

2 

GEOTAN 

3 

c 

SUBROUTINE  GEOTAN  (A  MODIFIED  HARC  ROUTINE  CALLED  GEDXYZ) 

GFOTAN 

4 

C 

GIVFN  THE  GEOGRAPHIC  COORDINATES  OF  TWO  POINTS,  PROVIDES 

THE 

GEOTAN 

=1 

C 

TANGENT-PLANE  COORDINATES  OF  POINT  2  WITH  RESPECT  TO  POINT  1. 

GFOTAN 

6 

CCC 

GFOTAN 

7 

c 

INPUTS  FROM  CALL  STATEMENT 

GEOTAN 

8 

c 

HA]  --  ALTITUDE  OF  POINT  1,  CM 

geotan 

9 

c 

GC1  =  COLATITUDE  OF  POINT  1,  RADIANS 

GEOTAN 

10 

c 

GL1  =  EAST  LONGITUDE  OF  POINT  1,  RADIANS 

GEDTAN 

11 

c 

HA?  *  ALTITUDE  OF  POINT  2,  CM 

GFOTAN 

1? 

c 

GC?  =  CDLATITUDE  OF  POINT  2,  RADIANS 

GEOTAN 

13 

c 

GL?  ^  EAST  LONGITUDE  OF  POINT  2,  RADIANS 

GEOTAn 

14 

c 

OUTPUTS 

GFOTAN 

IS 

c 

XE21  -  X  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1, 

CM 

GFOTAN 

IS 

c 

YN21  =  Y  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1, 

CM 

GEOTAN 

17 

c 

ZV21  =  7  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1, 

CM 

GEOTAn 

18 

ccc 

GEOTAN 

IQ 

DATA  RE  f  6.37103E+08  / 

GEOTAN 

20 

ccc 

GEOTAN 

21 

GR1  =  RE+HA1 

GEOTAN 

22 

GK?  ■=  RE»HA2 

GEOTAN 

23 

GLD  =  GL2-GL1 

GFOTAN 

24 

SINGC1  -  SIN (GC n 

GEOTAN 

25 

SINGC?  =  SIN(GC2) 

GEOTAN 

26 

C0SGC1  =  COS ( GC 1 ) 

GEOTAN 

?? 

COSGC?  -  COSIGC?) 

GEOTAN 

28 

COSGLD  =  COS'GLO) 

GEOTAN 

?Q 

XE21  -  GR?*SINGC?*S!N(GLD) 

GFOTAN 

3n 

YN21  =  GR?*(  SINGC.1*C0SGC?  -  COSGC1*SINGC?*C05GLD! 

GFOTAN 

31 

ZV21  =  GR?*( COSGC 1*C0SGC?  ♦  SINGC1‘SINGC?*C0SGLD1  -  GR1 

GEOTAN 

V 

RETURN 

GFOTAN 

33 

END 

GEOTAN 

34 

?rJ,I 


nooonr)or>nr,{^ 


ccc 

c 

c 

ccc 


c 

c 

ccc 

ccc 


SUBROUTINE  GEOXYZ(PH,PLAT,PLON,RPX,RPY,RPZ} 

SUBROUTINE  GEOXYZ  CONVERTS  THE  GEOGRAPHIC  COORDINATES  OF  A 
jUB  OJU _  r»B-rfS1AN  COORDINATES. 


INPUT  PARAMETERS 

ARGUMENT  LIST  _ 

PH  -  ALTITUDE  OF  POINT  P.  KM 
PLAT  -  NORTH  LATITUDE  OF  POINT  P. 


RADIANS 

RADIANS 


OUTPUT  PARAMETERS 

ARGLR«T-LFARTH-CENTERED  CARTESIAN  COORDINATE  X 

RPY  -  EARTH-CENTERED  CARTESIAN  COORDINATE  Y 

P.PZ  -  EARTH-CENTERED  CARTESIAN  COORDINATE  Z 
POINT  P,  KM 


OF 

OF 

OF 


data  RE  /  6.37103E*03  / 


Rp  .  re*PH 

RPZ  »  RP*SIN( PLAT) 

RPEO  *  RP*COS(PLAT) 

RPY  »  RPEQ*COS(PLON) 

RPY  =  RPEQ*SIN(PLON) 

RETURN 

END 


GEOXYZ 

2 

GEOXY2 

3 

GEOXYZ 

A 

GEOXYZ 

S 

GEOXYZ 

6 

GEOXY2 

7 

GEOXYZ 

8 

GEOXYZ 

9 

GEGXYZ 

10 

GEOXYZ 

11 

GEOXYZ 

12 

GEOXYZ 

13 

GEOXYZ 

34 

GEOXYZ 

15 

GEOXYZ 

16 

GEOXYZ 

17 

GEOXYZ 

18 

GEOXYZ 

19 

GEOXYZ 

20 

GEOXYZ 

21 

GEOXYZ 

22 

GEOXYZ 

23 

GEOXYZ 

24 

GEOXYZ 

25 

GfOXYZ 

26 

GEOXYZ 

27 

GEOXYZ 

28 

GFOXYZ 

29 
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nnnnnnnnonnnnnonnnnnonnnnnnnnnnnnnonnnnnon 


ccc 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

ccc 


SUBROUTINE  GL ITTR( THETA  I .WIND, SPCULR, ZLAM.l DAY, IF  IRES, ESURF 1, 

*  SFR.EPSO) 

SUBROUTINE  GLITTR,  CALLED  FROM  ESURF  WHEN  THE  LINE-OF-SIGHT 
INTERSECTS  A  WATER  SURFACE,  PROVIDES  (1A)  THE  BIDIRECTIONAL 
REFLECTANCE-DISTRIBUTION  FUNCTION  ( BRDF )  AND  (IB)  DIRECTIONAL 
EMISSIVITY  OF  THE  WATER  SURFACE  AT  THE  INTERSECTION  POINT  OF 
THE  OPTICAL  LINE-OF-SIGHT  FROM  THE  DETECTOR  AND  (2)  THE 
GEOGRAPHIC  COORDINATES  (NORTH  LATITUDE  AND  EAST  LONGITUDE)  OF 
THE  POINT  ON  A  SMOOTH  HORIZONTAL  SURFACE  FOR  A  SPECULAR 
REFLECTION  OF  A  RAY  FROM  THE  SOURCE  TO  THE  DETECTOR,  IF 
REQUESTED  (BY  LOGICAL  PARAMETER  SPCULR  *  .TRUE.  IN  ARGUMENT 
LIST).  ONLY  THE  DIRECTIONAL  EMISSIVITY  IS  PROVIDED  IF  THERE 
IS  NO  SOURCE. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

THETAI  -  ZENITH  ANGLE  OF  SOURCE  (SUN  OR  FIREBALL)  AT  THE 
INTERSECTION  POINT  OF  LINE-OF-SIGHT  FROM  DETECTOR 
TO  EARTH'S  SURFACE  (RADIANS) 

WIND  *  WIND  SPEED  AT  41  FEET  ABOVE  SEA  LEVEL  (METERS/SEC) 
SPCULR  ■  LOGICAL  PARAMETER 

■  .TRUE.  COMPUTE  COORDINATES  OF  SPECULAR 
REFLECTION  POINT 

-  .FALSE.  DO  NOT  COMPUTE  COORDINATES  OF  SPECULAR 

REFLECTION  POINT 
ZLAM  -  WAVELENGTH  (MICROMETERS) 

IDAY  «  INDEX  FOR  DAYLIGHT  CONDITIONS  AT  POINT  P 

*  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES 

*  1  IF  SOLAR  ZENITH  ANGLE  .LE.  90  DEGREES 
IF  IRES  ■=  FLAG  FOR  INCLUSION  OF  FIREBALLS 

*  0  IF  NO  FIREBALL  IS  BEING  CONSIDERED 
.GT.  0  IF  FIREBALLS  ARE  BEING  CONSIDERED 

ESURF 1  -  LOGICAL  PARAMETER 

-  .TRUE.  IF  ESURF  IS  CALLED  FOR  THE  FIRST  TIME  FROM 

SURRAO  AND  EPSD  IS  WANTED  AS  AN  OUTPUT, 
WHICH  IS  ALWAYS  THE  CASE  IN  THE  NBR  MODULE 

*  .FALSE.  IF  ESURF  IS  NOT  BEING  CALLED  FOR  THE  FIRST 

TIME  FROM  SURRAD  AND  A  RECOMPUTATION  OF 
EPSD  IS  NOT  NEEDED 

TECTOR  COMMON 

DETLAT  -  DETECTOR  NORTH  LATITUDE,  RADIANS 
OETLON  -  DETECTOR  EAST  LONGITUDE,  RADIANS 
OETALT  -  DETECTOR  ALTITUDE,  XM 

DETZEN  -  DETECTOR  ZENITH  ANGLE  AT  POINT  P,  RADIANS 
POSITN  COMMON 

POSLAT  -  NORTH  LATITUDE  OF  INTERSECTION  POINT  OF  LINE-OF- 
SIGHT  FROM  DETECTOR  TO  EARTH'S  SURFACE  (RADIANS) 
POSLON  -  EAST  LONGITUDE  OF  INTERSECTION  POINT  OF  LINE-OF- 
SIGHT  FROM  DETECTOR  TO  EARTH'S  SURFACE  (RADIANS) 
POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT 
INTERSECTS  EARTH'S  SURFACE,  KM 
SOURCE  CO  WON 

SRCLAT  -  NORTH  LATITUDE  OF  SOURCE  (SUN  OR  FIREBALL)  RADIANS 
SRCION  -  EAST  LONGITUDE  OF  SOURCE  (RADIANS) 

SRCALT  -  ALTITUOE  OF  SOURCE,  IF  NOT  THE  SUN  (XM) 

SRCFLG  -  1,  IF  SOURCE  IS  SUN 


GLITTR 

2 

GLITTR 

3 

GLITTR 

4 

GLITTR 

5 

GLITTR 

6 

GLITTR 

7 

GLITTR 

B 

GLITTR 

9 

GLITTR 

10 

GLITTR 

11 

GLITTR 

1? 

GLITTR 

13 

GLITTR 

14 

GLITTR 

15 

GLITTR 

16 

GLITTR 

17 

GLITTR 

18 

GLITTR 

19 

GLITTR 

20 

GLITTR 

21 

GLITTR 

22 

GLITTR 

23 

GLITTR 

24 

GLITTR 

25 

GLITTR 

26 

GLITTR 

27 

GLITTR 

?R 

GLITTR 

29 

GLITTR 

30 

GLITTR 

31 

GLITTR 

3? 

GLITTR 

33 

GLITTR 

34 

GLITTR 

35 

GLITTR 

36 

GLITTR 

3T 

GLITTR 

38 

GLITTR 

39 

GLITTR 

40 

GLITTR 

41 

GLITTR 

42 

GLITTR 

43 

GLITTR 

44 

GLITTR 

45 

GLITTR 

46 

GLITTR 

47 

GLITTR 

48 

GLITTR 

49 

GLITTR 

50 

GLITTR 

51 

GLITTR 

52 

GLITTR 

53 

GLITTR 

54 

GLITTR 

55 

GLITTR 

56 

GLITTR 

57 

GLITTR 

58 

260 


c 

-  2,  IF  SOURCE  is  FIREBALL 

GLITTR 

59 

c  * 

*  OUTPUT  PARAMETERS 

GL1TTR 

60 

c 

ARGUMENT  LIST 

GLITTR 

61 

c 

SFR  -  F  SUB  R  (2,0(2), ZLAM.THETAl .THETAR)  (1/SR) 

GLITTR 

62 

c 

-  BIDIRECTIONAL  REFLECTANCE-DISTRIBUTION  FUNCTION 

GLITTR 

63 

c 

FOR  A  HIND-RU:FLEO  SURFACE. 

GLITTR 

64 

c 

EPSD  -  (  1.0-RH0(THEUR,'  )  (DIMENSIONLESS) 

GLITTR 

65 

c 

-  DIRECTIONAL  EMISSIVITY,  WHERE  RHO(THETAR)  IS  THE 

GLITTR 

66 

c 

SPECULAR  REFLECTANCE  AT  ZENITH  ANGLE  TNFTAR 

GLITTR 

67 

c 

FOR  A  SMOOTH  HORIZONTAL  SURFACE. 

GLITTR 

68 

c 

POSITN  COMMON 

GLITTR 

69 

c 

(THIS  OUTPUT  OBTAINS  ONLY  IF  SPCULR* .TRUE . ) 

GLITTR 

70 

c 

SPCLAT  -  NORTH  LATITUDE  OF  POINT  ON  SMOOTH  HORIZONTAL 

GLITTR 

71 

c 

SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  THE 

GLITTR 

72 

c 

SOURCE  TO  THE  DETECTOR,  RADIANS 

GLITTR 

73 

c 

SPCLON  -  EAST  LONGITUDE  DF  POINT  ON  SMOOTH  HORIZONTAL 

GLITTR 

74 

c 

SURFACE  FOR  A  SPECULAR  REFLECTION  FROM  THE 

GLITTR 

75 

c 

SOURCE  TO  THE  DETECTOR .  RADIANS 

GLITTR 

76 

ccc 

GLITTR 

77 

COMMON/POSITN/  POSLAT.POSLON.POSALT,  SPCLAT,  SPCLON 

POSITN 

2 

S  ,C12LAT,C12L0N,C12ALT 

POSITN 

3 

COHION/ SOURCE/  SRCLAT,  SRCLON.SRCALT  ,SRCFLG,SRCZEN(  11 )  ,SRCSR(  11 ) 

SOURCE 

2 

C0M40N/TECT0R/  DETLAT,DETL0N.DETALT,0ETZEN.DETAZ!(11) 

TECTOR 

2 

LOGICAL  SPCULR.ESURF1 

GLITTR 

81 

DATA  PI, RE  /  3. 141592653590,6. 37103E*O3  / 

GLITTR 

8? 

DATA  RSUN.EPS1LN  /  1 .495979E'H)8,4.6524E-03  / 

GLITTR 

83 

cc 

GLITTR 

84 

cc 

NEED  NOT  COMPUTE  SFR  IF  NEITHER  SUN  NOR  FIREBALL  IS  CONSIDERED 

GLITTR 

B5 

cc 

AS  A  SOURCE,  SO  SET  IT  AS  WELL  AS  THE  COORDINATES  OF  the 

GLITTR 

86 

cc 

SPECULAR  POINT  (ARBITRARILY)  TO  -1.0 

GLITTR 

87 

IF (  (I0AY.FQ.1)  .OR.  (1FIRES.GT.0)  )  GO  TO  B 

GLITTR 

88 

SFR  -  -1.0 

GLITTR 

69 

DTZENP  -  DETZEN 

PL  I  iTT 

90 

GO  TO  70 

GLITTR 

91 

cc 

GLITTR 

9? 

ccc 

FORMULAS  FOR  SFR  «***»******«••**. .*.**. 

GLITTR 

93 

ccc 

FIRST,  FOR  TILTEO  FACET  AT  POINT  P,  USE  LEVANON'S  EQUATIONS 

GLITTR 

94 

ccc 

FOR  TOTAL  TILT  MAGNITUDE  (BETA)  AND  DIRECTION  (THETA.PHI)  AND 

GLITTR 

95 

ccc 

ANGLE  OF  INCIDENCE  (OMEGA).  WE  USE  HIS  EQUATIONS  REWRITTEN  IN 

GLITTR 

96 

ccc 

TERMS  OF  OUR  PARAMETER  EPSA. 

GLITTR 

97 

cc 

GLITTR 

98 

8  EPSA  -  (RE*PQSALT)/(RE+OETALT) 

GLITTR 

99 

cc 

GLITTR 

100 

cc 

THETAP  -  NORTH  LATITUDE  OF  POINT  P  RELATIVE  TO  DETECTOR 

GLITTR 

10! 

THETAP  -  POSLAT-DETLAT 

GLITTR 

10? 

CSTHTP  =  C05( THETAP) 

GLITTR 

103 

cc 

GLITTR 

104 

cc 

PHIP  *  EAST  LONGITUDE  OF  POINT  P  RELATIVE  TO  DETECTOR 

GLITTR 

105 

PHIP  *  POSLON-DETLON 

GLITTR 

106 

CSPHIP  «  COS(PHIP) 

GLITTR 

107 

cc 

GLITTR 

108 

cc 

PHIL  -  EAST  LONGITUDE  OF  POINT  O-SUB-L  RElATIVE  TO  DETECTOR 

GLITTR 

109 

cc 

(LEVANON  (LE-71B)  EQ.  il)). 

GLITTR 

110 

cc 

POINT  Q-SUB-L  IS  DEFINED  BY  THE  SEA  SURFACE  AND  A 

G!  ITTR 

111 

cc 

VECTOR,  STARTING  FROM  THE  EARTH'S  CENTER,  PARALLEL  TO 

GLITTR 

11? 

cc 

THE  RAY  FROM  THE  DETECTOR  TO  THE  REFLECTION  POINT  P. 

GLITTR 

Ill 

EPTHTP  -  EP$A»CSTHTP 

GLITTR 

114 

261 


PHIL  *  ATAN(  -EPTHTP‘SIN(PH!P)/(1.-EPTHTP*CSPHIP)  ) 

GlITTR 

115 

cc 

THETAL  =  NORTH  LATITUDE  OF  POINT  Q-SUB-L  RELATIVE  TO  DETECTOR 

GLITTR 

116 

cc 

(LEVANON  EQ.  (2)). 

GLITTR 

117 

ROOT  -  SORT (  1.0-2. *EPTHTP*CSPHI P+EPTHTP*EPTHTP  ) 

GLITTR 

hr 

THETAL  =  ATAN(  -EPSA*SIN(THETAP) /ROOT  } 

GLITTR 

119 

CSTHTL  =  COS( THETAL) 

GLITTR 

120 

cc 

GLITTR 

121 

cc 

THETAS  =  NORTH  LATITUDE  OP  SOURCE  RELATIVE  TO  DETECTOR 

GLITTR 

12? 

THETAS  =  .RCLAT -DETLAT 

GLITTR 

1?3 

CSTHTS  =  COS( THETAS) 

GLITTR 

12« 

cc 

PHIS  -  EAST  LONGITUDE  OF  SOURCE  RELATIVE  TO  DETECTOR 

GLITTR 

125 

PHIS  »  SRCLON-DETLON 

GLITTR 

126 

cc 

GLITTR 

127 

cc 

PHIN  =■  EAST  LONGITUDE  OF  POINT  Q-SUB-N  RELATIVE  TO  DETECTOR 

GLITTR 

128 

cc 

(LEVANON  EQ.  (3)). 

GLITTR 

129 

cc 

POINT  Q-SUB-N  IS  DEFINED  BY  THE  SEA  SURFACE  AND  A 

GLITTR 

130 

cc 

VECTOR.  STARTING  FROM  THE  EARTH1 S  CENTER.  PARALLEL  TO 

GLITTR 

131 

cc 

THE  NOMAL  REQUIRED  FOR  REFLECTION  FROM  POINT  P. 

GLITTR 

132 

AAA  =  CSTHTL*S!N  '  'HIL  )  +  CSTHTS*SIN(  PHI  S) 

GLITTR 

133 

8BB  =  C$THTL*COS( PHIL )  4  CSTHTS»COS( PHI  Si 

GLITTR 

134 

PHIN  =  ATAN{  AAA/BBB  ) 

GLITTR 

135 

cc 

THETAN  =  NORTH  LATITUDE  OF  POINT  Q-SUB-N  RELATIVE  TO  DETECTOR 

GLITTR 

136 

cc 

(LEVANON  EQ.  (4)). 

GLITTR 

137 

ROOT  =  CSTHTL ‘CSTHTL  +  CSTHTS*CSTHTS  +  2.*CSTHTL*CSTHTS* 

GLITTR 

138 

I  COS(PHIL-PHIS) 

GLITTR 

139 

THETAN  =  ATAN(  ( S 1 N ( THE TAL ) <-S I N ( THETAS) )  / SORT ( ROOT )  ) 

GLITTR 

140 

cc 

GLITTR 

141 

cc 

PHI  *  T’LT  TOWARD  THE  EAST  AT  THE  REFLECTION  POINT  P 

GLITTR 

14? 

cc 

(LEVANON  EQ.  (5)). 

GLITTR 

143 

PHI  =  PHIN-PHIP 

GLITTR 

144 

cc 

THETA  -  TILT  TOWARD  THE  NORTH  AT  THE  REFLECTION  POINT  P 

GLITTR 

145 

cc 

(LEVANON  EQ.  (6)). 

GLITTR 

146 

THETA  ■=  THETAN-THETAP 

GL  ITTR 

147 

cc 

GLITTR 

148 

cc 

BETA  *  TOTAL  TILT  MAGNITUDE  AT  THE  REFLECTION  POINT  P 

GLITTR 

149 

cc 

(LEVANON  EQ-  (7)). 

GLITTR 

150 

ROOT  =  TAN(THETA)**2  +  TAN(PHI)«2 

GLITTR 

151 

BETA  =  ATAN(  SORT(ROOT)  ) 

GLITTR 

15? 

cc 

GLITTR 

153 

cc 

OHEGA  =  ANGLE  OF  INCIDENCE  AT  REFLECTION  POINT  P 

GLITTR 

154 

cc 

(LEVANON  EO.  (8)). 

GLITTR 

155 

ROOT  =  TAN(THETAN-THETA$)*‘?  ♦  TAN(PHIN-PHIS)**? 

GLITTR 

156 

OMEGA  =  ATAN(  SORT (ROOT)  1 

GlITTR 

157 

cc 

GLITTR 

15P 

cc 

SlGSQ  =  MEAN  SQUARE  SLOPE  REGARDLESS  OF  DIRECTION 

GL  I TTR 

150 

SIGSO  -  (3.0  *  5.1?*WIN0)*l.E-03 

GLITTR 

160 

cc 

GLITTR 

161 

cc 

SMALL P  •  PROBABILITY  FOR  OCC'JRRENCE  OF  SLOPE  BETA 

GLtlTR 

16? 

TBETA  *  TAIN  (BETA) 

GLITTR 

16? 

SMAlLP  »  EXP(  -TBETA*TSETA/5IG50  )/(PI*SIGSO) 

GLITTR 

164 

cc 

GLITTR 

165 

CALL  FRESNL(ZLAM.OMEGA.RHO) 

Gl  H  TR 

166 

cc 

NOW  HAVE  FRESNEL  MONOCHROMATIC  REFLECTANCE  (RHO ) 

GLITTR 

16’ 

cc 

GLITTR 

I6P 

cc 

IN  COMPUTING  SFR,  TO  AVOID  POSSIBLE  DIVISION  BY  ZERO  OR 

GL I TTR 

16R 

cc 

NEAR-ZERO  IF  THETA]  OR  DETZEN  EXCEED5  AN  ARBITRARILY- 

GLITTR 

170 

cc 

SELECTED  VALUE.  89.9  DEG.,  RESET  THETAI  AND/OR  DETZEN  TO  R9.9 

Gl  ITTR 

17] 

cc 

DEG.  DEFINE  TEMPORARY  VARIABLES  TO  AVOID  ALTERING 

GLITTR 

172 

cc 

ORIGINAL  VARIABLES. 

GLITR 

173 

I WARN  ■=  0 

GLITTR 

174 

THTAIP  *  THETA! 

GLITTR 

175 

OTZENP  =  OETZEN 

GLITTR 

176 

P102  *  0.50*PI 

GLITTR 

177 

OELTHI  =  PI02-THETAI 

GLITTR 

178 

DELTHR  =  PID2-DETZEN 

GLITTR 

179 

IF (  OELTHI ,GE . 1 . 745E-03  )  GO  TO  101 

GLITTR 

180 

THTAIP  =  PID2-1.745E-03 

GLITTR 

181 

1WARN  -  1 

GLITTR 

182 

101 

IF (  DELTHR. GE.1.745E-03  )  GO  TO  102 

GLITTR 

183 

DTZENP  «  PID2-1.745E-03 

GLITTR 

184 

IHARN  ■  1 

GLITTR 

185 

102 

IF (  IHARN. EQ.O  )  GO  TO  104 

GLITTR 

186 

CC 

HRITE{ 6, 103) 

GLITTR 

187 

103 

FORMAT  (1H0.9X.44H  ***  NOTE  ***  PROM  SUBROUTINE  GL1TTR 

**♦  / 

GLITTR 

188 

1  10X.5SHTHETAI  OR  OETZEN  EXCEEDS  AN  ARBITRARILY-SELECTED 

VALUE,/ 

GLITTR 

189 

2  10X , 55H89.9  DEGREES,  TO  WHICH  THETAI  OR  OETZEN  HAS  BFEN  RESET  / 

„Gl!TTR 

190 

3  10X.55HTO  AVOID  POSSIBLE  DIVISION  BY  ZERO  OR  NEAR-ZERO 

IN  / 

flLITTR 

191 

4  10X.1SHCOMPUT1NG  SFR.  / 

GLITTR 

192 

5  10X.30HUSER  SHOULD  VERIFY  THAT—  / 

GLITTR 

193 

6  10X.6SH  (1)  THE  CODE  HAS  A  PROPER  VALUE  OF  THETAI  OR 

OETZEN  / 

GLITTR 

194 

7  10X.20H  AND,  IF  SO.  / 

GLITTR 

19S 

8  10X.55H  (2)  WHETHER  OR  NOT  RESETTING  OF  THETAI  OR  DETZEN  / 

GLITTR 

196 

9  10X.40H  TO  89.9  DEGREES  IS  SATISFACTORY.  1 

GLITTR 

197 

CC 

GLITTR 

198 

104 

SHADOW  *  1.0 

GLITTR 

199 

IE (  HIND. EQ. 0.0  )  GO  TO  107 

GLITTR 

200 

CC 

SHADOW  *  SHADOWING  FACTOR  8ASE0  ON  WORK  OF  SAUNDERS 

[SA-67, 

GLITTR 

201 

CC 

SA-68C)  BUT  EXTENDED  TO  PERMIT  A  BISTATIC  DEPENDENCE 

GLITTR 

202 

CC 

ON  THE  ZENITH  ANGLES  OF  BOTH  INCOMING  AND  OUTGOING 

GLITTR 

203 

CC 

RAYS 

GLiTTR 

204 

PISQ  =  SORT(  PI  ) 

Gl  ITTR 

205 

SIGS  *  SORT(  5.12E-03*WIND  ) 

GLITTR 

206 

THETV2  •  ATAN2(  0.50.SIGS  ) 

GLITTR 

207 

cc 

THETY2  is  THE  ZENITH  ANGLE  BELOW  WHICH  ESSENTIALLY 

GLITTR 

208 

cc 

NO  SHADOWING  OCCURS. 

GLITTR 

209 

SOFSVI  *  1.0 

GL 1 TTR 

210 

IF (  THETAI. LT.TWETYZ  )  GO  TO  105 

GLITTR 

211 

SVI  =  1.0/(SIGS*TAN(THTAIP)) 

GLITTR 

212 

SOFSVI  *  2.0/(1.0>ERF{5Vn+EXP(-SVI*SVI)/(PISO*SVin 

GL ITTR 

213 

105 

.  SOESVR  -  1.0 

GLITTR 

214 

IF (  DETZEN. LT.THETV2  )  GO  TO  106 

GLITTR 

215 

$VR  -  1.0/(SIGS«TANIDTZENP)) 

GLITTR 

216 

SOFSVR  ■=  2.0/(1.0*ERF(SVR)+EXP(-SVR*SVR)/(PIS0*SVRU 

GLITTR 

217 

106 

i  SHADOW  =  SOE SVI *50FSVR 

GLITTR 

218 

CC 

GLITTP 

219 

107 

SFR  -  0.?5*RHO*SMALLP/(COS(DTZENP)*COS( THTAIP)) 

GLITTR 

220 

SFR  =  SFR*SHAD0W/C0S!BETA)*»4 

G.  ITTR 

?21 

cc 

GLITTR 

??? 

cc 

GLITTR 

223 

CC 

GLITTR 

224 

if;  .not.spculr  )  go  to  ?o 

GLITTR 

225 

cc 

GLJTTp 

226 

ccc 

formulas  for  spclat  and  spclon  **«••*•••*. 

*  ♦  #  •  I 

-  GL!tT^ 

2?7 

cc 

Gl.  I  TTR 

7?? 
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CC  ALP  -  TOTAL  EARTH -CENTRAL  ANGLE  BETWEEN  PATS  TO  DETECTOR 

CC  AND  SOURCE. 

ALP  ■  C ANGLE (OETLAT,OETLON,SRCLAT,SRCLON) 

KFLG  *  SRCFLS+0.05 
GO  TO  (10,13),  KFLG 

CC  SET  EPSS  FOR  SUN  BEING  SOURCE. 

10  EPSS  *  (RE+P0SALT)/RSUN 
SO  TO  14 

CC  SET  EPSS  FOR  FIREBALL  BEING  SOURCE. 

12  EPSS  *  (RE*POSALT)/(RE+SRCALT) 

C  *  *  * 

C  *  *  *  START  OF  ITERATIVE  PROCEDURE  FOR  THE  SOLUTION  OF  THE 
C  REFLECTION  POINT  (IN  TERMS  OF  ALPA  AND  ALPS). 

C  THE  METHOD  USED  IS  NtWTON-RAPHSON. 

C  *  *  * 

14  KOUNT  «  0 

FACT  *  (1.0-EPSA)/((1.0-EPSA)+(1.0-EPSS)) 

C  THE  INITIAL  GUESS  FOR  ALPA  IS  GIVEN  BY  FACT*ALP 

ALPA  -  FACT*ALP 
16  KOUNT  «  KOUNT+1 
ALPS  -  ALP-ALPA 

BETA  *  ATAN(  £PSA*S1N( ALPA)/ (1.0-EPSA*COS(  ALPA) )  ) 

BETS  -  ATAN!  EPSS*SIN( ALPS)/ (1 .0-EPSS*COS( ALPS) )  ) 

C  CALCULATE  F(ALPA),  FOFA,  AND  F  PRIME(ALPA) ,  FOFAP 

FOFA  -  ALP-?. *ALPA+flETS-BETA 
DD1  «  1.0  +  EPSS*(£FSS-2 ,*COS( ALPS) ) 

DD3  *  1.0  T  EPSA*(EPSA-2.«C0S(AuPA)) 

FOFAP  *  EPSS*(EPSS-COS( ALPS) 5/001  -  2.0 
FOFAP  *  EPSA*( EPSA-COS( ALPA) ) /D02  +  FOFAP 
DELTA  •  (ALPA+BETA)-(ALP5+BETS) 

C  UPDATE  ALPA  - 

C  ALPA  NEW  -  ALPA  OLD  -  F ( ALPA  OLO)/F  PRIME(  ALPA  0LD1 

ALPA  *  ALPA-FOFA/FOFAP 

C  CHECK  FOR  SOLUTION  OR  IF  NUMBER  OE  ALLOWED  ITERATIONS 

C  HAS  BEEN  EXCEEDED 

IF (  ABS( DELTA) .LE.2.0E-05  )  GO  TO  18 
JF(  KOUNT. GE. 100  )  GO  TO  18 
GO  TO  16 
C  *  *  * 

C  *  *  *  END  OF  ITERATIVE  PROCEDURE. 

C  *  *  * 

la  ALPS  *  ALP-ALPA 
ALP5D  *  ALP5*1B0./PI 
ALPAD  •  ALPA*180./PI 
WR ITE(6, 5)  ALPAD.ALPSO, KOUNT, EPSA.EPSS 
5  FORMA"  (13H0  ALPHA  A  •,F12.4,5X,11H  ALPHA  S  *,F1?  •  5X.I5. 

•  12H  'TERATIONS, 5X ,6H  EPSA=,E13.4,5X,6H  EP5S*,tl3.4) 

CALL  GCRCuE(OETLAT .DETLON, SRCLAT.SRCLON, ALP, ALPA, SPCLAT, SPCLON) 
CC  NOW  HAVE  SPCLAT  AND  SPCLON 

CC 

GO  TO  BO 
70  SPCLAT  *  -1.0 
SPCLON  •  -1.0 

80  IF (  .N0T.ESURF1  )  RETURN 
CC 

CCC  FORMULAS  FOR  EPSD 

CC 

CALL  FRESNL(3LAM,DTZENP,RH0) 

CC 

CC  COMPUTE  EPSD 

EPSD  *  l.O-RHO 
RETURN 
END 
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SUBROUTINE  PATH*  FIRST,  1 SHELL,  DS.  XFRACS  ) 

PATH 

Z 

c 

PATH 

3 

c 

♦PATH*  DEVELOPS  THE  PATH  INTEGRALS  FOR  ATMOSPHERIC  ABSORPTION. 

PATH 

4 

c 

PATH 

S 

CIJ 

PATH 

6 

CLJ 

INPUT  PARAMETERS 

PATH 

7 

CIO 

ARGUMENT  LIST 

PATH 

8 

CLJ 

FIRST  *  LOGICAL  INITIALIZATION  SWITCH 

PATH 

9 

CLJ 

*  .TRUE.  FOR  FIRST  CALL  (I.E.,  CORRESPONDING  TO 

PATH 

10 

CLJ 

PATH  FROM  RX  TO  RT  IN  TRNSCO) 

PATH 

11 

CLJ 

«  .FALSE.  FOR  SUBSEQUENT  CALLS  (I.E.,  CORRESPONDING 

PATH 

1Z 

CLJ 

TO  PATH  FROM  RY  TO  RZ  IN  TRNSCO) 

PATH 

13 

CLJ 

I SHELL (1 )  *  INDX(I)  IN  CALL  FROM  TRNSCO  OR  SUftPAD 

PATH 

14 

CLJ 

ISHaUZ)  *  TMOX ( 1+1 )  IN  CALL  FROM  TRNSCO  OR  SURRAO 

PATH 

IS 

CLJ 

OS  *  DS(I+1]  IN  CALL  FROM  TRNSCO  OR  SURRAO. 

PATH 

16 

CLJ 

NOTE...  IT  IS  ALWAYS  TRUE  THAT  DS(1)-0.0  AND 

PATH 

17 

CLJ 

OS(NC+l)=-l.,  WHERE  NC  IS  THE  NUMBER  OF  PATH 

PATH 

IB 

CLJ 

SEGMENTS  PLUS  ONE.  ATMRAO  WILL  NOT  BE  CALLED 

PATH 

19 

CLJ 

WITH  !*NC. 

PATH 

ZO 

CLJ 

XFRACS(l)  *  XFRACS(I)  IN  CALL  FROM  TRNSCO  OR  SURRAD 

PATH 

Zl 

ClJ 

XFRACS(Z)  -  XFRACSO+1)  IN  CALL  FROM  TRNSCO  OR  SURRAD. 

PATH 

22 

CLJ 

NOTE.  THIS  ARRAY  XFRACS  (DIMENSIONED  2)  IS  NOT  THE 

PATH 

Z3 

CLJ 

SAME  AS  THE  ARRAY  XFRACS  (DIMENSIONED  1^0)  IN 

PATH 

Z4 

CLJ 

SUBROUTINES  STEP.  STEPS,  AND  TRNSCO. 

PATH 

Z5 

CLJ 

(  SEE  NOTE  IN  SUBROUTINE  ATNRAD  ) 

PATH 

26 

CLJ 

XYZCON  COMMON 

PATH 

27 

CLJ 

NS  *  NUMBER  OF  ALTITUOE  BOUNDARIES 

PATH 

ZB 

CLJ 

TS( J)  -  TEMPERATURE  AT  ALTITUOE  BOUNDARY  J.  DEG  K  (J-l.NS) 

PATH 

Z9 

CLJ 

PS(J)  «  PRESSURE  AT  ALTITUDE  BOUNDARY  J,  ATM  (J*1,NS) 

PATH 

30 

CLJ 

XNSPEC(J.N)  -  SPECIES-N  DENSITY  AT  ALTITUOE  BOUNDARY  J,  l/CM-3 

PATH 

31 

CLJ 

(J-l.NS  ,  N-1,10) 

PATH 

3? 

CLJ 

OUTPUT  PARAMETERS 

PATH 

33 

CLJ 

XYZCOM  COW« 

PATH 

34 

CLJ 

U(I,N,Z)  *  CUMULATIVE  VALUE  OF  PATH  PARAMETER  U  (AREAL 

PATH 

35 

CLJ 

DENSITY)  FOR  TEMPERATURE- INDEX  I  AND  SPECIES  N  AT 

PATH 

36 

CLJ 

END  OF  LINE  SEGMENT  DS,  CM  AT  STP 

PATH 

37 

CLJ 

UP(I,N,Z)  -  CUMULATIVE  VALUE  OF  PATH  PARAMETER  UP  (PRODUCT  Or 

PATH 

38 

CLJ 

U  AND  PRESSURE  P)  FOR  TEMPERFT!»F  INDEX  I  AND 

PATH 

39 

CLJ 

SPECIES  N  AT  ENC  OF  LINE  SEGMENT  DS,  ATM-CM 

PATH 

40 

CLJ 

AT  STP  FOR  U  AND  UP  (1*1, Z  .  N-1,10) 

PATH 

41 

CLJ 

PATH 

4? 

DIMENSION  XNSl(lO),  XNSZ(IO),  DU(10,10),  DUP(lO.lO),  ISHai(Z), 

PATH 

43 

1  XERACS(Z) 

PATH 

44 

COMMON  /  XYZCOM  /  ITMTE,  LTMTE,  NS,  HSHaL(SI),  TS<81).  PS(B1), 

PATH 

45 

1  XNSPEC (81 , 10 ) ,  U(10,10,Z),  UP(IO.IO.Z),  »W)LS, 

PATH 

46 

Z  FACT 

PATH 

47 

C 

path 

48 

LOGICAL  FIRST 

path 

49 

c 

PATH 

SO 

CLJ 

XJNTRP  IS  AN  ARITHMETIC  STATEMENT  FUNCTION  FOR  LINEAR 

path 

SI 

CLJ 

INTERPOLATION,  RETURNING  THE  VALUE  XINTRP  AT  A  FRACTIONAL 

PATH 

5? 

CLJ 

DISTANCE  (l.-XFRAC)  BETWEEN  END-POINT  VALUES  Z1  AND  12. 

PATH 

S3 

CLJ 

PATH 

54 

XINTRPf  Zl,  ZZ  )  *  Z1  *  XFRAC  ♦  Z?  *  (  1 .  -  XFRAC  ) 

PATH 

55 

c 

PATH 

56 

IF  (  .NOT.  FIRST  )  GO  TO  1 

PATH 

57 

C 

INITIALIZATIONS 

PATH 

5R 
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HGW  ZERO  SECOND* HALVES  OF  U  AND  UP  ARRAYS,  WHICH  IS  WHERE  WE 
ACCUMULATE  OUR  OUTPUT  RESULTS  FOR  THESE  ARRAYS. 

CALL  XMIT  (  -100,  0.,  U(l.l,2)  1 
CALL  XMIT  (  -100,  0.,  UP(1,1.2)  ) 

1  LI  *  1$HELL(1 ) 

L2  *  !SHaL(?) 

SFT  "HELL  PROPERTIES  AT  FIRST  POINT 

NOW  TRANSFER  SECOND-  HALVES  OF  U  AND  UP  ARRAYS  TO  FI « JT -HAL VHS . 
t.E.  INITIALIZE  THE  STARTING  POINT  OF  THE  SECOND  lEG  TO 
VALUES  AT  END  OF  FIRST  LEG  OF  PATH. 

call  xmit  ;  ioo,  u(i,i,2),  u  ) 

CALL  XMIT  (  100.  UP(1.1.2).  UP  ) 

IF  (  L?  .£0.  0  )  RETURN 

INTERPOLATE  FOR  P.  T,  AND  C(SPECIES)  AT  FIRST  POINT 
XFRAC  =  XFRACS(l) 

PSL1  *  PS(Ll) 

TSLl  *  TS(L1) 

IF  (  XFRAC  .£0.  1.  )  GO  TO  2 
PSLl  -  XINTRP!  PS(Ll),  PS(L2)  ) 

TSLl  »  XINTRP!  TS(L1).  TS(L?)  ) 

2  DO  3  N*1 .10 

XNSPEC(Ll.N)  *  XNSPEC(L2.N)  .EO.  0.  ) 

I  GO  TO  3 

XNSl(N)  -  XINTRP(  XNSPEC(Ll.N).  XNSPEC(L2.N)  ) 

3  C0NTt.^^,()0LATE  FQR  T>  WO  C(SPECIES)  AT  SECOND  POINT 
XFRAC  •  XFRACSI21 

PSL2  -  PS(L2) 

TSL2  =  TS(L2l 

IF  (  XFRAC  .EO.  1.  )  GO  TO  « 

PSL2  =  XINTRP!  PS(L2),  PSfLl)  ) 

TSL2  «  XINTRP(  T$(L2 ) ,  TS(Ll)  ) 

4  00  5  N=1 ,10 

XNSPEC(Ll.N)  ♦  XNSPEC(L2,N)  .EO.  0.  ) 

*xNS?(n:  XINTRP!  XNSPEC(L2,N),  XNSPEC!L1,N)  } 

5  CONTINUE 

COMPUTE  DIFFERENTIAL  U  AND  UP  , 

CALL  SEGMENT  (  10,  0.,  XNS1,  PSLl,  TSLl,  OS,  XNS2,  PSL?,  TSL2, 

J  DO,  DUP  ) 

ACCUMULATE  U  AND  UP  AT  SECOND  POINT 
00  6  N=l,10 
DO  f  1=1,2 

Ud,N,2)  «  U(I,N,2)  ♦  DU ( 1  ,N) 

UP(I,N,2)  •  UP ( 1  ,N,2)  ♦  DUPH.N) 

6  CONTINUE 
RETURN 
END 
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60 

PATH 

61 
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62 

PATH 

63 

PATH 

64 

PATH 

6S 

PATH 

66 

PATH 

6? 

PATH 

68 

PATH 

69 

PATH 

TO 

PATH 

71 

PATH 

72 

PATH 

73 

PATH 

74 

PATH 

75 

PATH 

76 

PATH 

77 

PATH. 

78 

PATH 

79 

path 

80 

PATH 

8! 

PATH 

82 

PATH 

83 

path 

84 

PATH 

85 

path 

86 

path 

87 

path 

88 

path 

89 

PATH 

90 

PATH 

91 

path 

92 

path. 

93 

path 

9« 

PATH 

95 

PATH 

96 

PATU 

97 

PATH 

9? 

PATH 

99 

PATH 

100 

PATH 

101 

path 

102 

PATH 

103 

PATH 

104 

PATH 

105 

PATH 

106 

PATH 

ID’ 

PATH 

10E 

PAth 

1C* 

PAth 

no 

/o') 


FUNCTION  PLANCK  (  T,  W  ) 

PLANCK 

2 

c 

PLANCK 

3 

c 

•PLANCK*  GIVES  THE  BLACK  BOOT  SPECTRUM 

PLANCK 

4 

c 

(  MATTS  CM-2  ST-1  (CM-l)-l  ) 

PLANCK 

5 

c 

PLANCK 

6 

ClJ 

PLANCK 

7 

CLJ 

INPUT  PARAMETER 

PLANCK 

B 

CLJ 

ARGUMENT  LIST 

PLANCK 

9 

CLJ 

T  *  TEMPERATURE,  OEG  K 

PLANCK 

10 

CLJ 

W  «  WAVENUMBER.  1/CM 

PLANCK 

11 

CLJ 

DATA  STATEMENTS 

PLANCK 

12 

CLJ 

C  »  VELOCITY  OF  LIGHT,  CM/SEC 

PLANCK 

13 

CLJ 

H  -  PLANCK'S  CONSTANT,  J  SEC 

PLANCK 

14 

CLJ 

C*  •  C*H/K,  CM  DEGREE-K 

PLANCK 

15 

CLJ 

WHERE  K  *  BOLTZMANN  CONSTANT 

PLANCK 

16 

CLJ 

*  1.380662E-23  J/(DEGREE-K) 

PLANCK 

17 

CLJ 

OUTPUT  PARAMETER 

PLANCK 

18 

CLJ 

function 

PLANCK 

IP 

CLJ 

PLANCK  *  SPECTRAL  RADIANCE,  WATTS/(CM**2  SR  CM**-1) 

PLANCK 

20 

CLJ 

PLANCK 

21 

OATA  C  /  2.9979  25E10  /,  C*  /  1.438786  /,  H  /  6.626176E-3A  / 

PLANCK 

22 

CLJ 

PLANCK 

23 

PLANCK  «  0. 

PLANCK 

24 

IF  (  T  ,EQ.  0.  )  SO  TO  2 

PLANCK 

25 

Z  •  C*  /  T  •  W 

PLANCK 

26 

IF  l  Z  .GE.  88.  )  GO  TO  2 

PLANCK 

27 

PLANCK  *  (  2.  *  C**2  *  W**3  /  (  EKP(Z)  -  1.  )  )  *  H 

PLANCK 

28 

CLJ 

PLANCK 

29 

CLJ 

TO  OBTAIN  PLANCK  IN  TOE  UNITS  USED  BY  6RC. 

PLANCK 

30 

CLJ 

PHOTONS/ (CH**2  SEC  SR  CM**-1), 

PLANCK 

3! 

CLJ 

DIVIDE  BY  HCW=H*C*W  . 

PLANCK 

32 

CLJ 

PLANCK 

33 

CLJ 

TO  OBTAIN  PLANCK  IN  UNITS  OF  W/(CM**2  SR  MICRON),  MULTIPLY  BY 

PLANCK 

34 

CLJ 

l.E-OA*W*W  OR  BY  l.E-KtA/(ZLAHDA*ZLAHDA)  WHERE  ZLANIDA-1  .E-KM/W 

PLANCK 

35 

CLJ 

Hanli. 

36 

2  RETURN 

PLANCK 

37 

END 

PLANCK 

38 

SUBROUTINE  REATAN(SR.EL,AZ,K£,YN.ZV) 

REATAN 

? 

CCC 

REATAN 

3 

C 

SUBROUTINE  REATAN  (A  MODIFIED  MARC  ROUTINE  CALLED  REAYY7 ) , 

REATAN 

4 

r 

GIVEN  THE  SLANT  RANGE,  ELEVATION  ANGLE,  AND  AZIMUTH  ANGLE  OF  A 

REATAN 

5 

c 

POINT  WITH  RESPECT  TO  SOME  REFERENCE  LOCATION,  PROVIDES  THE 

REATAN 

6 

C 

TANGENT-PLANE  COORDINATES  OF  THE  POINT  WITH  RESPECT  TO  THE 

REATAN 

7 

c 

SAME  REFERENCE. 

REATAN 

fi 

CCC 

RFAT AN 

0 

c 

INPUTS  FROM  CALL  STATEMENT 

reatan 

ID 

c 

SR  *  slant  RANGE  OF  POINT,  cm 

REATAN 

1! 

c 

EL  -  ELEVATION  A“GLE  OF  POINT.  RADIANS 

reatan 

1? 

c 

AZ  *  AZIUJTO  ANGLE  Of  POINT,  RADIANS 

reatan 

n 

c 

output; 

reatan 

14 

c 

XE  =  X  COORDINATE  OF  POINT,  CM 

REATAN 

15 

c 

YN  =  Y  COORDINATE  Of  POINT,  CM 

REATAN 

16 

c 

ZV  -  Z  COORDINATE  OF  POINT,  CM 

REATAN 

1  7 

CCC 

REATAN 

1 8 

COSEL  *  COS f  EL ) 

REATAN 

XE  -  SR*COSEL*SINf AZ) 

reatan 

20 

YN  •  SR*COSEL*COSI  AZ ) 

REATAN 

?! 

ZV  »  SR*SIN(EL) 

REATAN 

2? 

pfTUPfc 

d  r  fi  t  Kb 

->7 

end" 

REATAN 

?4 

SUBROUTINE  R I NOUT (HAT, IF  IRE, I  DAY) 

RINOUT 

2 

ccc 

RINOUT 

3 

c 

SUBROUTINE  R1NOUT,  GIVEN  THE  GEOGRAPHIC  LOCATIONS  OF  THE 

RINOUT 

4 

c 

SOURCES  (SUN  AND/OR  FIREBALLS),  THE  DETECTOR,  AND  THE 

RINOUT 

5 

c 

POSITION  P  OF  THE  INTERSECTION  OF  THE  LINE-OF-SIGHT  FROM  THE 

RINOUT 

6 

c 

DETECTOR  TO  THE  EARTH'S  SURFACE,  COMPUTES  THE  ZENITH  ANGLES 

RINOUT 

7 

c 

(AND,  FOR  FIREBALLS.  SLANT  RANGES)  OF  SOURCES  FROM  P  AND  THE 

RINOUT 

8 

c 

DIRECTION  OF  THE  RAY  FROM  F  TO  DETECTOR  IN  TERMS  OF  ZENITH 

RINOUT 

9 

c 

ANGLE  OF  THE  DETECTOR  AND  (IF  THE  SURFACE  IS  NOT  LAMBERTIAN 

RINOUT 

1C 

c 

( HAT *1 )  OR  WATER  (MAT*2))  THE  ABSOLUTE  VALUE  OF  THE  AZIMUTH 

RINOUT 

11 

c 

ANGLE  OF  SCATTER  WITH  RESPECT  TO  THE  PRINCIPAL  PLANE 

RINOUT 

12 

c 

CONTAINING  THE  INCOMING  RAY. 

RINOUT 

13 

ccc 

RINOUT 

14 

ccc 

INPUT  PARAMETERS 

RINOUT 

IS 

c 

ARGUMENT  LIST 

RINOUT 

16 

c 

IFIRE  *  NUMBER  OF  FIREBALLS  TO  BE  CONSIDERED  AS  SOURCES 

RINOUT 

17 

c 

(ALWAYS  ZERO  IN  NBR  MODULE) 

RINOUT 

18 

c 

MAT  «  INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL 

RINOUT 

19 

c 

-  1,  LAMBERTIAN  DIFFUSE  SURFACE  *  2,  WATER 

RINOUT 

20 

c 

-  3,  SNOW  *  4,  SAND  -  5.  SOIL  *  6,  FOLIAGE 

RINOUT 

21 

c 

*  7,  URBAN  MATERIAL 

RINOUT 

22 

c 

TECTOR  COMMON 

RINOUT 

23 

c 

OETLAT  -  NORTH  LATITUDE  OF  DETECTOR  SUBPOINT,  RADIANS 

RINOUT 

24 

c 

DETLON  -  EAST  LONGITUDE  OF  DETECTOR  SUBPOINT.  RADIANS 

RINOUT 

25 

c 

DETALT  -  ALTITUDE  OF  DETECTOR,  KM 

RINOUT 

26 

c 

F1RBAL  COMMON  (NOT  USED  IN  NBR  MODULE) 

RINOUT 

27 

c 

FBLAi(L)  -  NORTH  LATITUDE  OF  FIREBALL-L,  RADIANS 

RINOUT 

28 

c 

FBLON(L)  -  EAST  LONGITUDE  OF  FIREBALL-L,  RADIANS 

RINOUT 

29 

c 

FBALT(L)  -  ALTITUDE  OF  FIREBALL-L ,  KM 

RINOUT 

30 

c 

FBRINT(L)  -  RADIANT  INTENSITY  Of  FIREBALL-L.  WATTS/SEC 

RINOUT 

31 

c 

POSITN  COMMON 

RINOUT 

3? 

c 

POSLAT  -  NORTH  LATITUDE  OF  INTERSECTION  POINT  Of  LINE-Of- 

RINOUT 

33 

c 

SIGHT  FROM  DETECTOR  TO  EARTH'S  SURFACE,  RADIANS 

RINOUT 

34 

c 

POSIOH  -  EAST  LONGITUDE  OF.  INTERSECTION  POINT  OF  LINF-OF- 

RINOUT 

35 

c 

S1GHT  FROM  DETECTOR  TO  EARTH'S  SURFACE,  RADIANS 

RINOUT 

36 

c 

POSALT  -  ALTITUOE  OF  INTERSECTION  POINT  Of  LINE-OF-SIGHT 

RINOUT 

3? 

c 

FROM  OETECTOR  TO  EARTH'S  SURFACE,  KM 

RINOUT 

3S 

c 

SOLAR  P  COPWON 

RINOUT 

39 

c 

SOILAT  -  NORTH  LATITUDE  OF  SUBSOLAR  POINT,  RADIANS 

RINOUT 

40 

c 

SOLLON  -  EAST  LONGITUDE  OF  SUBSOLAR  POINT,  RADIANS 

RINOUT 

«1 

ccc 

OUTPUT  PARAMETERS 

RINOUT 

42 

c 

ARGUMENT  LIST 

RINOUT 

43 

c 

IDAY  -  INDEX  FOR  DAYLIGHT  CONDITIONS  AT  POINT  P 

RINOUT 

44 

c 

-0  IF  SOLAR  ZENITH  ANGLE  ,GT.  90.  DEGREES 

RINOUT 

45 

c 

*1  IF  SOLAR  ZENITH  ANGLE  .LE.  90.  DEGREES 

RIN0U1 

46 

c 

TECTOR  COMMON 

RINOUT 

47 

c 

OETZFN  -  ZENITH  ANGLE  OF  RAY  REFLECTED  AT  POINT  P  TOWARD 

RINOUT 

48 

c 

THE  DETECTOR,  RADIANS 

RINOUT 

49 

c 

DETAZI(l)  -  ABSOLUTE  VALUE  OF  AZIMUTH  OF  REFLECTED  RAY, 

RINOUT 

50 

c 

MEASURED  FROM  PRINCIPAL  PLANE  DETERMINED  BY 

RINOUT 

51 

c 

VERTICAL  PLANE  THROUGH  INCOMING  RAY  FROM  SUN, 

RINOUT 

5; 

c 

RADIANS 

RINOUT 

53 

c 

DETAZI  (L+l ) ,  l-l,  IFIRE  (NOT  USED  IN  NBR  MODUS) 

RINOUT 

54 

c 

-  ABSOLUTE  VALUE  Of  AZIMUTH  OF  REFLECTED  RAY, 

RINOUT 

55 

c 

MEASURED  FROM  PRINCIPAL  PLANE  DETERMINED  BY 

RINOUT 

56 

c 

VERTICAL  PLANE  THROUGH  INCOMING  RAT,  RADIANS 

RINOUT 

57 

c 

SOIKCE  COWDN 

RINOUT 

58 

268 


c 

$RCZEN(l)  -  ZENITH  ANGLE  OF  RA¥  INCOMING  TO  POINT  P  FROM 

RINOUT 

59 

c 

THE  SUM,  RADIANS 

RINOUT 

60 

c 

S»CZEN(t+l).  1*1, IFIRE  (NOT  USED  IN  NBR  MODULE) 

RINOUT 

61 

c 

-  ZENITH  ANGLE  Of  RAY  INCOMING  TO  POINT  P  FROM 

RINOUT 

6? 

c 

FIREBALL-L,  RADIANS 

RINOUT 

63 

c 

SRCSR(LM).  1*1, IFIRE  (NOT  USED  IN  NBR  MODULE) 

RINOUT 

64 

c 

-  SLANT  RANGE  FROM  FIRE3ALL-L  TO  POINT  P.  KM 

RINO'JT 

66 

arc 

RINOUT 

66 

COWON/FIR8AL/  F8LAT(  10)  ,FBLON(  10),FBALT( 10),f BRINTf 10) 

F1RBAL 

2 

COPftON/POSITN/  POSLAT, POSL ON, PO SALT, SPCLAT,  SPClON 

POSITH 

2 

i  ,C12LAT,C12L0N,C12ALT 

POSITN 

3 

CO*40N/SA  TELL  /  SATLAT,  SATLON  ,  SATAL  T .  $AT7  EN ,  SATAZ I 

SATELL 

2 

COWON/SOIARP/  SOLLAT,SOLLON,SOLIRR  ( 10) 

SOLARP 

2 

COMMON/SOURCE/  SRCLAT,  SRCLON,  SRCALT,SRCFLG,S»C2EN(  11  ).SRCSR(U) 

SOURCE 

2 

COPRON/TECTOR/  DETLAT,DETL0N,DFTALT,DE7ZEN,DETAZI(11) 

TECTOS 

2 

DATA  PI, RE  /  3. 141592653590,6. 371035*03  / 

RINOUT 

73 

ccc 

RINOUT 

74 

c 

UPON  BEING  CALLED  FROM  SUBROUTINE  SURRAD  INITIALLY  WITH 

RINOUT 

75 

c 

!F1RE*0  (EVEN  TH01JGH  1FIRES  .ST.  0),  RINOUT  DECIDES  WHETHER 

RINOUT 

76 

c 

THE  SUN  CAN  BE  A  SOURCE,  DEPENDING  ON  ITS  ZENITh  ANGLE. 

RINOUT 

77 

ccc 

RINOUT 

78 

IF(  IFIRE. GT.O  )  GO  TO  20 

RINOUT 

79 

SINS1N  -  SIN( POSLAT) *S!N(SOLLAT) 

RINOUT 

SO 

COSCOS  -  COS(POSLAT)*COS(SOLLAT) 

RINOUT 

81 

CSSOLZ  *  SINSIN  ♦  COSCOS*COS(POSLON-SOLLON) 

RINOUT 

82 

IOAY  •  0 

RINOUT 

83 

IF(  CSSOLZ.LT. 0.0  )  GO  TO  10 

RINOUT 

84 

IOAY  -  1 

RINOUT 

85 

SRCZEN(l)  *  ACOS(  CSSOLZ  ) 

RINOUT 

86 

10  CONTINUE 

RINOUT 

87 

cc 

RINOUT 

88 

cc 

COMPUTE  DETECTOR  ZENITH  .ANGLE,  OfTZEN,  AND,  IF  MAT  .GT.  2  AND 

RINOUT 

69 

cc 

I0AY=1,  THE  OETECTOR  AZIMUTH  ANGLE  FOR  SUN,  DETAZI(l). 

RINOUT 

90 

cc 

ALPHAD  *  EARTH-CENTRAL  ANGLE  BETWEEN  RAYS  TO  DETECTOR  AND 

RINOUT 

91 

cc 

LINE-OF-SIGHT  INTERSECTION  »OJNT 

RINOUT 

92 

ALPHAD  *  CANGLEfOETLAT.OETLON, POSLAT, POSLON) 

RIsOuT 

53 

EPSD  =  (RE+POSALT)/(RE*OtTALT) 

RINOUT 

94 

CD  *  (1.0-EPSD)/(l.O*EPSD) 

RINOUT 

95 

CD  *  2.0»ATAN(  CD/TAN(ALPHAD/2. )) 

RINOUT 

96 

BET  AD  -  0.5*(PI-ALPHAD-CO) 

RINOUT 

97 

DETZEN  *  AlPHAD+BETAD 

RINOUT 

99 

IF (  (IDAY.EQ.O)  .OR.  (NAT. IE. 2)  )  RETURN 

RINOUT 

99 

cc 

RINOUT 

100 

cc 

SET  SUN  INTO  SOURCE  COORDINATES. 

RINOUT 

101 

SRCLAT  -  SOLIAT 

pinout 

10? 

SRCLON  *  SOUON 

RINOUT 

103 

GO  TO  »0 

RINOUT 

10* 

20  1*1 

RINOlJT 

105 

cc 

RINOUT 

106 

cc 

SET  FIREBALL-L  INTO  SOURCE  COORDINATES. 

RINOUT 

107 

30  SRCLAT  *  FBlAT(l) 

RINOUT 

108 

SRClON  *  F8L0N(L) 

RINOUT 

109 

SRCALT  *  FBALT(L) 

RINOU’ 

no 

cc 

RINOUT 

111 

IF (  MAT.LE.Z  )  GO  TO  60 

RINOUT 

11? 

cc 

RINOUT 

11? 

cc 

START  CALCULATION  OF  DETAZI(l)  OR  DETAZI (1*1 ),  (l-l. IFIRE) 

RINOUT 

114 
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40  SINNP  •  COS(  POSLAT  ) 

R!NO"T 

115 

COSNP  -  SIN(  POSLAT  ) 

RINOUT 

116 

COSNS  *  $IN(  SRCLAT  ) 

RINOUT 

117 

SINUS  -  COS(  SRCLAT  ) 

RINOUT 

lie 

TWOPI  *  PI+PI 

RINOUT 

119 

PNS  -  A6S(  SRCLON-PCSLON  ) 

RINOUT 

120 

IF (  PNS.GE.PI  )  PNS  *  TWOPI-PNS 

RINGLET 

171 

SINPNS  *  SIN{  PNS  ) 

RINOUT 

:?? 

PS  *  CANGLE(POSLAT,POSLON,SRCLAT,SRCLON) 

RINOUT 

1?3 

SINQSN  -  SINNP*SINPNS/S!N(  PS  ) 

RINOUT 

i?« 

cc 

SOME  NUMERICAL  PRECAUTIONS  ARE  NECESSARY. 

RINOUT 

1?H 

A8SQSN  *  A8S(  SINOSN  ) 

RINOUT 

i?s 

A850NE  =  A8SQSN-1.0 

RINOUT 

127 

IF(  (ABSQSN.GT.1.0)  .AND.  (ABS0NE.LE.1.0E-10)  ) 

RINOUT 

1?8 

*  SINQSN  -  SI SH {  1.0, SINQSN  ) 

RINO'JT 

129 

QSN  *  ASINf  SINQSN  ) 

RINOUT 

no 

COSNPR  =  COSNS*COS(  PS  ) 

RINOUT 

131 

]F{  COSNP.LT. COSNPR  )  QSN  =■  PI-QSN 

R!#OUT 

132 

COSOSN  *  COS(  QSN  ) 

RINOUT 

133 

QNS  •  A6S(  SRCLON-DETLON  ) 

RINOUT 

134 

IF (  QNS.GE.PI  )  QNS  *  TWOPI-QNS 

RINOUT 

135 

COSQNS  *  COS(  QNS  ) 

RINOUT 

136 

SINQNS  =  S!N(  QNS  ) 

RINOUT 

137 

RNQS  *  ACOS(  SlNQNS*SINQSN*COSNS  -  CO$QN$*COSQSN  ) 

RINOUT 

138 

SINNQS  *  SIN(  RNQS  ! 

RINOUT 

139 

QN  =  ASIN(  SINQSN*S INNS/ SINNQS  ) 

RINOUT 

140 

CSQSNR  *  -COSQNS-COSt  KNQS  ) 

RINOUT 

141 

1F(  COSOSN. LT. CSQSNR  )  QN  *  PI-QN 

RINOUT 

142 

SINAQ  -  COS(  QN+DfTLAT  ) 

RINOUT 

143 

PSI  *  AS1N(  SINAQ*SINNOS/SIN<  ALPHAD  I  ) 

RINO'JT 

144 

COSAQ  *  S!N(  QN+DEUAT  ) 

RINOUT 

145 

QNP  =>  ABS'  DETLON-POSLON  ) 

RINOUT 

146 

IF(  QNP.GE.PI  )  QNP  -  TWOPI-QNP 

R INOUT 

147 

SINQNP  *  SIN'  QNP  ) 

RINO'JT 

145 

SINOP  -  SINQNP*SINNP/SINNQS 

RINOUT 

149 

SNQPSQ  *  SIHQP'SINQP 

RINOUT 

150 

COSQP  =  SORT'  1.0- SNQPSQ  ) 

RINO'JT 

151 

COSAQR  *  AL PH AO*CQ SOP 

RINOUT 

IS? 

IF (  COSAQ. LT. COSAQR  )  PSI  *  PI-PSI 

RINOUT 

153 

IF:  IFIRE. GT.O  )  GC  TO  50 

RINOUT 

154 

DETAJI(I)  -  PSI 

R  INO'JT 

155 

RETURN 

RINOUT 

156 

cc 

RINCJ" 

157 

cc. 

-  RINO'JT 

1S8 

cc 

THE  REMAINING  PORTION  OF  THIS  SUBROUTINE  15  *)T  USED  IN  THE 

RINOUT 

159 

rc 

NBh  module. 

RINO'JT 

160 

SO  CONTINUE 

RINCJT 

161 

cc 

SET  OETAZI ' L+l > . 

R ! HDUT 

16? 

OETAZIfL‘1)  *  PSI 

RINO’JT 

16? 

cc 

R I  NOLrT 

164 

cc 

COMPUTE  5RCZENU*!)  AND  ERCSR  fL+1 1. 

RINOUT 

165 

cc 

AL  PH  AF  •  EARTH-CENTRAL  ANCLE  BETWEEN  RATS  TO  FIREBALL  AND 

RINO'JT 

166 

cc 

LINE-OF-SIGHT  INTERSECTION  POINT 

RINOUT 

167 

60  AL°HAF  *  C  ANGLE  v  POSLAT,  POSLON,  SRCLAT ,  SRC*  ON  1 

RINO'JT 

16? 

EPSF  -  (RE*POSALrV(RE+SRCALT) 

R!*0'JT 

169 

CE  •  n.0-EPSF)/(!.O*EP$F) 

r  !  ncv.,t 

170 

Cf  «  2 .  *ATAN '  CF/TAN'  ALPHAS  12  .  1  ) 

0 

m 

BETAF  =  0.5*fPI-ALPHAf-CF) 

R :H?VT 

V2 

SRCZ  EM  ( L+l  >  *  ALPHA1  +BETAC 

R?Nf)UT 

173 

SRC$R(L*1)  =  RE'SIN'A.  PHAc)/S!N.'8ETAr) 

RINO’JT 

1  7  4 

IF (  L.GE.IFIRE  )  RETURN 

R I NQUT 

1 75 

L  *  L+l 

RINCJT 

176 

GO  TO  30 

RINO'JT 

l'T 

END 

a 

i?c 

270 


SUBROUTINE  SEGMENT  (  NSPEC,  XI.  NSi.  PI.  Tl,  X2,  HS2,  P?.  T?, 

SEGMENT 

? 

1  DU.  PUP  ) 

SEGMENT 

3 

c 

SEG“ENT 

A 

r 

♦SEGMNT*  DEVELOPES  THE  ABSORBER  AND  PARTIAL  PRESSURE 

SEGMENT 

5 

C 

INTEGRALS  FOR  SPECIES  IN  THE  PATH  ELEMENT  FROM  POINT  1 

SEGMENT 

6 

C 

TO  PI) I N  2.  ALL  PROPEdt;ES.  TE“dERATDRF,  PRESSURE,  AND 

SEGMENT 

7 

c 

CONCENTRATIONS,  ARE  ASSUMED  TO  VARY  LINTARLY  through  THE 

SEGMENT 

R 

c 

path  ELEMENT 

SEGMENT 

9 

c 

SEGMENT 

10 

CLO 

INPUT  PARAMETERS 

SEGMENT 

11 

CL  J 

ARGUMENT  LIST 

SEGMENT 

1? 

Cl  J 

NSPEC  =  NUMBER  OF  S’ECIFS  (10.  SET  IN  CALL  FROM  PATH). 

SEGMENT 

13 

CL.l 

THrSF  SPECIES  ARE  inFNT'FIEO  BY  COMMENTS  IN 

SEGMENT 

14 

CLJ 

SUBROUTINE  SHELLS. 

SEGMENT 

IS 

CL  J 

XI  =  DISTANCE  ALONG  LINE  SEGMENT  (0..  SET  IN  CALL 

SEGMENT 

IS 

CLO 

FRO“  PATH),  CM 

SEG“FNT 

17 

CLO 

IIS)  ■  XNS'.nOi-ARRAY,  SET  IN  CALL  FROM  PATS-.. 

SEGMENT 

IB 

CLO 

-  ARRAY  OF  SPECIES  CONCENTRATIONS  AT  start  OF 

SEGMENT 

19 

CLJ 

LINE  SEGMENT.  t/CM*-*3 

SfcGMFN' 

?C 

CLJ 

Pj  *  PSLl.  SET  IN  CALL  FROM  PATH. 

SEGMENT 

21 

CLJ 

=  PRESSURE  AT  START  OF  LINE  SEGMENT,  ATM 

segment 

?? 

CLJ 

Tl  =  15L1,  SET  IN  CALL  FROM  PATH. 

.egment 

23 

CLO 

-  TEMPERATURE  AT  START  OF  LINE  SEGMENT,  DE  X 

SEGMENT 

?4 

CLJ 

X?  *  OS,  SET  IN  CALL  FROM  PATH. 

SEGMENT 

25 

CLJ 

•  LENGTH  OF  LINE  SEGMENT,  CM 

SEGMENT 

?S 

CLJ 

NS''  =  XNS?(  1 0  l-ARRAY,  SET  IN  CALL  FROM  Path. 

5EGMENT 

27 

CLJ 

«  ARRAV  OF  SPECIES  CONCENTRATIONS  AT  END  OF 

SEGMENT 

28 

CLJ 

LINE  SEGMENT,  1/CM**3 

SEGMENT 

29 

CLO 

P?  »  PSl?,  SE’  IN  CALL  FROM  PATH. 

segment 

30 

CLO 

-  PRESSURE  AT  END  OF  LINE  SEGMENT,  ATM 

SEG“ENT 

31 

Cl  J 

T?  =  T SL 2 ,  SET  [N  CALL  FROM  PATH. 

SEGMENT 

3? 

CLJ 

-  TEMPERATURE  AT  END  w  i_INE  SEGMENT,  DEG  K 

SEG“?NT 

33 

CLO 

XY  COMMON 

SEGmfn- 

’4 

CLJ 

7T i)  *  TEMPERATURE  ARRAY  In  ATMOSPHERIC  TRANSMISSION 

SEG“ENT 

35 

CL- 

MOPE-,  SET  AS  DATA  IN  THE  DRIVER  PROGRAM.  ( OEG  K) 

SEG“FNT 

3S 

CLJ 

OUTPUT  parameters 

SEGMENT 

T' 

CLO 

ARG'lMfN’  LIST 

SEGMENT 

Q 

CLJ 

D'JflC.lf",«  ARRAYS  OF  PATF  INTEGRALS  UfATM  CM'  AND  LIP(ATM«? 

SEGMENT 

3  9 

CLJ 

DUP '10.10 >  CM'  AT  10  TEMPERATURES  FOR  EACH  OF  10  SPECIES. 

SEGmfn’- 

4- 

CLJ 

THE  UNITS  ARF  THOSE  OF  STEPHENS.  Sa]/L-  PREFERS 

SFGMENT 

41 

CLO 

UNITS  of  C“  «’  STP  FOP  ’0  AND  ATM-CM  AT  .TP  FOR  UP. 

SEGMENT 

4 

COMMON  f  XY  1  TT  •  ) n  ■ 

SEC.mfnt 

4^ 

DIMENSION  NSI'NjP'lC',  N'?; NSPEC'-,  DU'  10, NSPEC',  DU6-' 10,*S3B  r'. 

Sf 'men* 

44 

1  X T ( 1 0 ,  DNSDX-20'.,  XNSO'20'i 

SEGMENT 

4r. 

SEGMENT 

4f 

"A;  NS1,  NS?.  NL 

segment 

iy 

LOCI' AL  ngrad 

SfGMfN* 

C 

SfGMFNT 

ClJ 

SEGMENT 

CLJ 

NL  *  LOSE ’  'i* '  S  NUMBER t  MO)  ECUlES-''m**3  At  tp  'EtE^ENS 

SE  '.“e\t 

SI 

mE‘ER'  1  ' ■  ATM  :m«3!  WITH  sra^nApn  TfMP:  RATU°E 

SEG“ENT 

c.;- 

ClC 

UNDER  ft  OP. ’ 

crp.MrN* 

c  1 

Cl  J 

TEOM- ST 

DATA  NL  /  ?.6B7E':a 

SERmen* 

t  A. 

r 

SFGM; sT 

ClC. 

CAIL  X"IT  (  -I'.'NSPfC,  0  ,  O'!  '■ 

SEGmes’ 

C.  - 

CALL  Xm;t  .i—NSO-S,  C..  PL'R  ) 

SEGMENT 

Sfr* 

1 


OPRDX  -  (  P2  -  PI  )  /  {  X2  -  XI  ) 

XPRO  *  PI  *  XI  *  DPRDX 
DO  1  M-l.NSPEC 

DNSDX(M)  ■  (  NS2(M)  -  NS1(M)  )  /  (  (  X2  -  XI  )  *  Nl  ) 

XNSC(M)  -  NS1(M)  /  NL  -  XI  *  DNSOX(M) 

1  CONTINUE 
C 

IF  (  ABS(  T2/T1-1 .  )  .GT.  .005  )  GO  TO  7 
C 

C  NEARLY  ISOTHERMAL  PATH  ELEMENT 

TBAR  *  .5  *  (  T1  +  T2  ) 

IT  •  0 
DO  2  1*1,10 

IF  (  TSAR  .LE.  TT( I )  )  GO  TO  3 
IT  *  I 

2  CONTINUE 
C 

3  IP  (  IT  .EQ.  0  .OR.  IT  .EQ.  10  }  GO  TO  5 
C 

C  TEMPERATURE  INSIDE  TABLE  RANGE 

FN  *  (  TBAR  -  TT(IT)  )  /  (  TT(IT+1)  -  TT(IT)  ) 

FF  *  1.  -  FN 
DX1  *  X2  -  XI 

0X2  •  X2«2  -  Xl**2 

0X3  *  X2**3  -  Xl«3 

DO  A  M*1,NSPEC 

IF  (  NS1(M)  +  NS2(M)  .EQ.  0.  )  GO  TO  4 
TERM  *  ONSOX(M)  *  OX?  /  2.  +  XNSO(M)  •  0X1 
DU(IT,M)  *  FF  *  TERM 
DU(IT+1,M)  *  FN  *  TERM 

TERM  -  DNSOX(M)  *  DPRDX  *  0X3  /  3.  ♦  (  XPRO  *  DNSDX(M)  + 

1  XNSO(M)  *  DPRDX  )  *  0X2  /  2.  ♦  XNSO(M)  *  XPRO  *  DX1 

DUPJIT.M)  *  FF  ♦  TERM 
DUP(IT+1,M'  *  FN  *  TERM 

4  CONTINUE 
RETURN 

C 

C  TEMPERATURE  OUTSIDE  TABLE  RANGE 

5  IF  (  IT  .EQ.  0  )  IT  *  1 
0X1  =  X2  -  XI 

0X2  *  X2**2  -  Xl**2 
0X3  -  X2**3  Xl**3 

DO  6  H*1,NSPEC 

IF  (  NS1(M)  4  NS2(M)  .EQ.  0.  I  GO  TO  6 
Dl'(IT.M)  -  DNSCX(M)  *  3X2  /  ?.  +  XNSC(M)  •  0X1 
DUP(IT.M)  *  DNSOX(M)  *  OPRDX  «  0X3  /  3.  ♦  (  XPRO  *  DNSDX(M)  4 
1  XNSO(M)  *  OPROX  )  *  0X2  /  2-  4  XNSO(M)  *  XPRO  *  DX1 

6  CONTINUE 
RETURN 


C 

C 

7 


8 


NON-ZERO  TEMPERATURE  GRACIENT 
NGRAD  *  T2  .LT.  T1 
DO  8  1*1,10 
XT(  I )  *  T2  -  TTtI 

1  (  fl  -  tt(i 

CONTINUE 
IT  •  0 


W, 


TP  -  T1 
T1  -  T2 


*  XI  4 

•  X? 


SEGMENT 

59 

SEGMENT 

60 

SEGMENT 

6! 

SEGMENT 

62 

SEGMENT 

63 

SEGMENT 

64 

SEGMENT 

65 

SEGMENT 

66 

SEGMENT 

67 

SEGMENT 

68 

SEGMENT 

69 

SEGMENT 

70 

SEGMENT 

71 

SEGMENT 

72 

SEGMENT 

73 

SEGMENT 

74 

SEGMENT 

75 

SEGMENT 

76 

SEGMENT 

77 

SEGMENT 

78 

SEGMENT 

79 

SEGMENT 

80 

SEGMENT 

81 

SEGMENT 

82 

SEGMENT 

83 

SEGMENT 

84 

SEGMENT 

85 

SEGMENT 

86 

SEGMENT 

87 

SEGMENT 

88 

SEGMENT 

89 

SEGMENT 

90 

SEGMENT 

91 

SEGMENT 

92 

SEGMENT 

93 

SEGMENT 

94 

SEGMENT 

95 

SEGMENT 

96 

SEGMENT 

97 

SEGMENT 

98 

SEGMENT 

9° 

SEGMENT 

100 

SEGMENT 

101 

SEGMENT 

102 

SEGMENT 

103 

SEGMENT 

104 

SEGMENT 

105 

SEGMENT 

106 

SEGMENT 

107 

SEGMENT 

108 

SEGMENT 

109 

SEGMENT 

110 

segment 

111 

SEGMENT 

112 

SEGMENT 

113 

SEGMENT 

114 

SEGMENT 

115 

272 


IF  (  NGRAD  )  IT  *  10 
II  *  1 

DO  IS  1-1,10 
IP  -  II 

*XT(II)  .6E.  X2  )  GO  TO  5 

IF  (  XT(II)  .LE.  Xl  .OR.  XT(IP)  .GE.  X2  )  GO  TO  15 
IF  (  I  .GT.  1  )  GO  TO  11 

FIRST  PART  OF  PATH  OUTSIDE  TEMPERATURE  TABLE  RANGE 
DX1  *  XT (11)  -  XI 
0X2  -  XT<II)**2  -  Xl**2 
0X3  -  XT(II)**3  -  Xl**3 

9  DO  10  M-l .NSPEC  ,  „  _ 

1  1  DNSDX(M)  ♦  XNSO(M)  *  DPRDX  )  *  DX2  /  2.  * 

2  XNSO(M)  *  XPRO  *  DX1 

10  CONTINUE 
GO  TO  15 

TEMPERATURE  IN51PE  TABLE  RANGE 
’  11  XN  *  AMAX1(  XT ( IP ) ,  XI  ) 

XF  *  AMIN1(  XT(II),  X2  ) 

DX1  -  XF  -  XN 
0X2  -  XF**2  -  XN**2 
DX3  *  XF**3  -  XN—3 
OXA  -  XF**4  -  XN«4 

:  NEAR  SIDE  INTEGRAL  TO  NEXT  POINT 

OXT  -  XT (11)  -  XT( IP) 

FF  -  (  XF  -  XT(IP)  )  /  DXT 
FN  -  (  XN  -  XT (IP)  )  /  OXT 
IT  -  II 

c  INTEGRATE  BY  PARTS-OIFERENTIATING  THE  WEIGHTING  FACTOR 

1?  IF  .£Q.  C.  )  GO  TO  13 

I?” <”ff"  .NE.  0.  )  CNN  .  (.0«OX(H):*Fru2/2.>:^NSO(M)*XC  )  •  FF 


DU(IT,M) 


*212.* 


SEGMENT  116 
SEGMENT  117 
SEGMENT  118 
SEGMENT  11R 
SEGMENT  120 
SEGMENT  121 
SEGMENT  122 
SEGMENT  123 
crmucHT  124 
SEGMENT  125 
SEGMENT  126 
SEGMENT  127 
SEGMENT  128 
SEGMENT  129 
SEGMENT  130 
SEGMENT  131 


F  FN  NE.  o'.  ONN  -  DNN  -  !  DNSDX(M)  *  XN«2  /  2.  * 
i  '  XNSO(M)  *  XN  )  *  FN 

><"•«  *  w*^v?'  r/r  * DX3 '  "  + 

0NE.  0.  )  ONNPP  -  (  J^iVsn^M  WON  )  * 

1  Xf«2  /  Z.  -  XNSO(M)  *  XPRO  •  IF  )  *  FF 

i  cu  Ht  o  1  ONNPP  -  ONNPP  -  I  DNSOX(M)  *  DPRDX  *  XN«3  /  3- 
IF  (  FN  -NE.  0.  )  ONNPP  0"^wo-,  *  x*S0(M)  -  DPRDX  ) 

,  XN**2  t  2.  ♦  XNSO(M)  •  XPRO  «  XN  )  ♦  FN 

WIPllT  Ml  -  WJP(IT.W)  ♦  ONNPP  -  (  PNSDX(M)  *  DPRDX  *0X4/12.  * 
DUPUT.M)  (jV5J^0’.’onsox{m)  *  XMS0(P4)  *  DPRDX  )  *  DX3  /  6.  - 

2  XNSO(M)  *  XPRO  *  DX2  /  2.  )  )  DXT 
13  CONTINUE 


SEGMENT 

132 

SEGMENT 

133 

SEGMENT 

134 

SEGMENT 

135 

SEGMENT 

136 

SEGMENT 

137 

SEGMENT 

138 

SEGMENT 

139 

SEGMENT 

140 

SEGMENT 

141 

SEGMENT 

142 

SEGMENT 

143 

SEGMENT 

144 

SEGMENT 

115 

SEGMENT 

146 

SEGMENT 

147 

SEGMENT 

148 

SEGMENT 

149 

SEGMENT 

150 

SEGMENT 

151 

SEGMENT 

152 

SEGMENT 

153 

SEGMENT 

154 

SEGMENT 

155 

SEGMENT 

156 

SEGMENT 

157 

SEGMENT 

158 

SEGMENT 

159 

SEGMENT 

160 

SEGMENT 

161 

SEGMENT 

16? 

SEGMENT 

163 

SEGMENT 

164 

SEGMENT 

165 

SEGMENT 

165 

*  SEGMENT 

167 

1  SEGMENT 

168 

SEGMENT 

169 

SEGMENT 

170 

SEGMENT 

171 

SEGMENT 

17? 

273 


! 


IF  (  IT  .NE.  II  )  GO  TO  14 

FAR  SIDE  INTEGRAL  FROM  PASSED  POINT 
DXT  »  XT( IP)  -  XT{ II) 

FF  =  (  XF  -  XT(II)  )  /  DXr 
FN  =  (  XN  -  XT (IE)  )  /  DXT 
IT  *  IP 
GO  TO  12 

IF  (  I  .IT.  10  .OR.  XT (II)  .GE.  X2  )  GO  TO  15 

LAST  PART  OF  PATH  OUTSIDE  TEMPERATURE  TABLE  RANGE 
0X1  -  X2  -  XT(II) 

OX?  -  X?**2  -  XT (II )**2 
0X3  =  X2«3  -  XT(I1)**3 
GO  TO  9 

CONTINUE 


IF  (  NGRAO  1  IT  =  10  —  IT 
IF  (  IT  .EQ.  0  .OR.  IT 


.EQ.  10  )  GO  TO  5 


RETURN 

END 


SEGMENT  173 
SEGMENT  174 
SEGMENT  175 
SEGMENT  176 
SEGMENT  177 
SEGMENT  178 
SEGMENT  179 
SEGMENT  180 
SEGMENT  181 
SEGMENT  182 
SEGMENT  183 
SEGMENT  184 
SEGMENT  185 
SEGMENT  186 
SEGMENT  187 
SEGMENT  188 
SEGMENT  189 
SEGMENT  190 
SEGMENT  191 
SEGMENT  19? 
SEGMENT  193 
SEGMENT  194 
SEGMENT  195 
SEGMENT  196 


SUBROUTINE  SETALT  (  ALMIN,  ALMAX,  JBAND  ) 

SUBROUTINE  SETALT,  CALLED  FROM  THE  DRIVER  PROGRAM  DRV'JRW, 
DETERMINES  THE  ALTITUDES  AT  WHICH  SUBROUTINE  UPwtLL  COMPUTES 
the  upwelling  NATURAL  raciation. 

A  SET  OF  CHARACTERISTIC  ALTITUDES  HAS  BEEN  PREVIOUSLY  5ELECTED 
FOR  EACH  OF  THE  10  SPECTRAL  BINS.  IF  THE  WAVELENGTH-BAND  OF 
INTEREST  (ALMIN, ALMAX)  SPANS  MORE  THAN  ONE  BIN,  WE  USE  A  SET 
OF  ALTITUDES  OBTAINED  BY  COMBINING  THOSE  FOR  EACH  OF  THE 
SPANNED  BINS. 

INPUT  PARAMETERS 
ARGUMENT  LIST 

ALM1N,  -  MINIMUM  AND  MAXIMUM  WAVELENGTHS  FOR  WHICH 
ALMAX  UPWELLING  NATURAL  RADIATION  IS  TO  BE  COMPUTED, 
MICRONS 

J8AND  -  8R0A0-BAND  LOOP  INDEX  (1,5) 

OUTPUT  PARAMETERS 
COWON  UPWELS 

NALT(JBAND)  -  NUMBER  OF  ALTITUDES  FOR  BROAD-BAND  INDEX 
JBAND 

ZKMfl, JBAND)  I'1,NAlT(JDAND) 

-  ALTITUDES  OF  POINT  V  ABOVE  UPWALT  AT  WHICH 
UPWELLING  RADIANCE  IS  COMPUTED  FOR  BROAD¬ 
BAND  INDEX  JBAND,  KM 


COMMON/UPWELS/  UPWALT,UPWL0N.UPWLAT,NALT(5),ZXM(13,5;,NNADIR,NAZI, 

*  NWAVE(S),l0AYy,CL0FLG,UPRADN(13,10,S),WV(10,5),IKM, 

*  NBANDS 
OWON/UPWELSl/ 

2  R010(6,10) .ROIOA! 6,10,10) ,R010N(6,10) , 

3  R02S( 6 , 10) ,R0?5A( 6,10,10) ,R0?5N(6 ,10) , 

4  R050( 6,10) ,R050A( 6,10,10) ,R050N( 6, 10) , 

5  R000( 6 , 10) ,R090A( 6,10,101 ,R0R0N(6 ,10) , 

6  R100(6,10).R100A(6,10,10},R100N(6,10) 

7  ,  APCVAf  6 , 10,10 ) ,ARCVN!6 , 10) 

DIMENSION  HUPHEL(U,10).BINLAM(11),NALTL(10'),ALT(56) 

DEFINITIONS  OF  DATA... 

NBINL1  -  NUMBER  OF  WAVELENGTH-BIN  BOUNDARIES  MINUS  ONE 

-  NUMBER  OF  WAVELENGTH  BINS 
BINLAM(L)  1  =  1 ,  (NB1NL1+1 ) 

-  WAVELENGTH  OF  BIN  BOUNDARY.  MICRONS 
NALtL(M)  M=1,NBINL1 


*■  c 

-  NUMBER  OF  ALTITUDES  FOR  WAVELENGTH-BIN 

SETALT 

38 

1  c 

HUPWEL ! I ,M)  I-l.NALTL(M)  M=l,NBINLl 

setalt 

39 

i  C 

-  ALTITUDE-1  FOR  WAVELENGTH-BIN  M,  KM 

SETALT 

40 

c 

SlTALT 

41 

DATA  NBINL1 

/ 

10  / 

SETAlT 

4? 

DATA  BINLAM 

/ 

2.000.  2.100,  2.575,  2.675,  ?.7?S,  2.875,  4 

.150, 

setalt 

41 

J 

4.550,  4.750,  4.850,  5.000  / 

SETA’,t 

44 

l 

DATA  HALTL 

/ 

5,  4,  5,  11,  5,  4, 

9, 

SETALt 

4C 

i 

j 

i 

4,  5,  4 

SETALt 

4f 

f 

DATA  HUPWEL 

/ 

0,,  1 . , 12 . ,20. , 100. ,0. ,  0.,  0.,  0.,  0.,  0., 

SETA.t 

4  ’ 

2 

0.,  1 . ,12. ,100. ,0. ,  0.,  0.,  0.,  0.,  0.,  C., 

SETAI.T 

flc 

3 

0.,  1.,  3. , 12., 100. .0.,  0.,  0.,  0.,  0..  0., 

SE’ALT 

49 

4  0.,  1..  2.,  4..  9. ,12. ,20. .30. ,50. .70., 100., 

SET  ALT 

50 

5  0.,  1.,  3. , 12. ,100. .0..  0.,  0.,  0.,  0..  0., 

SETALT 

51 

6  0.,  1. .12. ,100. ,0. ,  0.,  0,,  0.,  0.,  0.,  0., 

SETAL1 

52 

7  0..  1..  3.,  6. , 12. ,20. ,50. .70., 100. ,0.,  0., 

SETALT 

53 

8  0.,  1 . ,12. ,100.,0. ,  0.,  0.,  0.,  0.,  0.,  0-, 

SETALT 

54 

9  0.,  l.,12.,30.,100.,0.,  0.,  0.,  0.,  0.,  0.. 

SETALT 

55 

A  0.,  1. ,12. .100..0. ,  0.,  0.,  0.,  0.,  0.,  0./ 

SETALT 

56 

SETALT 

57 

DETERMINE  WHICH  WAVELENGTH  BINS  THE  MINIMUM  AND  MAXIMUM 

SETALT 

58 

WAVELENGTHS,  ALMIN  AND  ALHAX,  FALL  INTO. 

SETALT 

59 

IF  (  ALMIN  .LT.  2.0  )  GO  TO  15 

SETALT 

60 

DO  10  K-1.NBINL1 

SETALT 

61 

IF  (  ALMIN  .LT.  BINLAM(K+1)  )  GO  TO  20 

SETALT 

62 

10  CONTINUE 

SETALT 

63 

15  WRITE! 6,16) 

SETALT 

C4 

15  FORMAT ( 1H0 , IX , 64NA  BOUNDARY  WAVELENGTH  IS  OUTSIDE  THE  2.0-  TO  5.0- 

SETALT 

65 

SMICRON  INTERVAL) 

SETALT 

66 

STOP  1 

SETALT 

67 

20  WIN  *  K 

SETALT 

68 

NOW  HAVE  INDEX  WIN  OF  WAVELENGTH  BIN  FOR  MINIMUM  WAVELENGTH. 

SETALT 

69 

DO  25  K*1,N8INL1 

SETALT 

70 

IF  (  ALMAX  ,LE.  BINLAM(K*1)  )  GO  TO  35 

SETALT 

71 

25  CONTINUE 

SETALT 

7? 

30  WRITE(6,16) 

SETALT 

73 

STOP  2 

SETAIT 

7* 

35  wax  *  x 

SETALT 

75 

NOW  HAVE  INDEX  WAX  OF  WAVELENGTH  BIN  FOR  MAXIWJH  WAVELENGTH. 

SETALT 

76 

SETALT 

77 

IF  (  WAX  .NE.  WIN  )  GO  TO  50 

SETALT 

78 

NALTJ  -  NALTL(MHIN) 

SETALT 

79 

NALT(JBANO)  -  NALTJ 

SETALT 

BO 

00  40  1*1, NALTJ 

SETALT 

81 

?KM(  I ,  JBAHD)  -  HUPWEL!  I  .WIN) 

SETALT 

82 

40  CONTINUE 

SETALT 

83 

GO  TO  90 

SETAIT 

84 

50  CONTINUE 

SETALT 

85 

J  •  0 

SETALT 

86 

DO  70  M*WIN,WAX 

SETALT 

87 

NH  *  NALTL(M) 

SETALT 

88 

00  60  1*1  .NH 

SETALT 

89 

J  *  J  ♦  1 

SETALT 

90 

ALT! J)  -  HUPWEL! I ,M) 

SETALT 

9] 

60  CONTINUE 

SETALT 

92 

70  CONTINUE 

SETALT 

93 

UMAX  -  J 

SETALT 

94 

SORT  ALT  ARRAY  IN  ORDER  OF  INCREASING  ALTITUDES  AND  THEN 

SETALT 

95 

ELIMINATE  REDUNDANT  ALTITUDES. 

SETALT 

96 

CALL  SORTLJ(ALT,ALT,ALT,JMAX,0) 

SETALT 

97 

JW1  -  JHAX  -  1 

SETALT 

98 

J  *  1 

SETALT 

99 

ZKM(1,JBAND)  -  ALT(l) 

SET  A!  T 

100 

DO  80  1*1,  JHM1 

SET, ALT 

101 

IE  (  ALT(M)  .EQ.  ALT( I)  )  GO  TO  8® 

SETALT 

102 

3  *  J  ♦  1 

5ETALT 

103 

ZKM(  1.JBAND)  *  ALT!  1+1 ) 

SETALT 

104 

80  CONTINUE 

SETAIT 

105 

NaLT(OBAND)  •  0 

SETAIT 

106 

90  CONTINUE 

SETAIT 

107 

END 

SETAIT 

108 

276 


c 

c 

c 

c 

c 

CIJ 

CLJ 


SUBROUTINE  SHELLS 

♦SHELLS*  PREPARES  A  TABLE  OP  PHYSICAL  PROPERTIES  FOR  THE 
AMBIENT  ATMOSPHERE  USEO  IN  THE  CALCULATION  OF  ATMOSPHERIC 
TRANSMISSION. 


INPUT  PARAMETERS 


SHELLS 

SHELLS 

SHElLS 

SHELLS 

SHELLS 

SHELLS 

SHELLS 

SHELLS 


CLJ 

ATMOUP  COPWON 

SHELLS 

10 

CLJ 

PP  * 

PRESSURE,  DYNES/CM**? 

SHELLS 

11 

CLJ 

TT  - 

TEMPERATURE,  DEG  K 

SHELLS 

12 

CLJ 

SM  1(1)  - 

DENSITY  OF  SPECIES  I.  1/CM«3 

SHELLS 

13 

CLJ 

PARTICULAR  SPECIES  ARE  INDICATED  AS  FOLLOWS... 

SHELLS 

14 

CLJ 

N  t-IMAP(N)  SNI(I) 

SHELLS 

15 

CLJ 

—  - —  - 

SHELLS 

16 

CLJ 

1  8  NO 

SHELLS 

17 

CLJ 

?  11  N0+ 

SHELLS 

18 

CLJ 

3  21  N20 

SHELLS 

19 

CLJ 

4  15  N02 

SHELLS 

20 

CLJ 

5  14  03 

SHELLS 

21 

CLJ 

6  6  CO? 

SHELLS 

2? 

CLJ 

7  20  CO 

SHELLS 

23 

CLJ 

8  22  CH4 

SHELLS 

24 

CLJ 

9  16  H20 

SHELLS 

25 

CLJ 

10  18  OH 

SHELLS 

26 

CLJ 

XYZCOM  COMMON 

SHELLS 

27 

CLJ 

FACT  * 

PATH  INTEGRATION  FACTOR  CONTROLLING  THE  NUMBER  Or 

SHELLS 

28 

CLJ 

ALTITUDES  AND  SPACING  (HAY  HAVE  A  VALUE  BETWEEN 

SHELLS 

29 

CLJ 

0.1  AND  10,  PER  EWING.  NOMINAL  VALUE  IS  1.0) 

SHELLS 

30 

CLJ 

FOR  FACT-l.O,  WE  HAVE  NS-77  AND  JCHNGE-40. 

SHELLS 

31 

CLJ 

J 

HS,  KM 

SHELLS 

3? 

CLJ 

*** 

**•*»**» 

SHELLS 

33 

CLJ 

1 

0.0 

SHELLS 

34 

CLJ 

2 

0.526 

SHELLS 

36 

CLJ 

39 

20.000 

SHELLS 

36 

CLJ 

40 

22.105 

SHELLS 

37 

CLJ 

58 

60.0 

SHELLS 

38 

CLJ 

77 

100.0 

SHELLS 

39 

CLJ 

SHELLS 

40 

CLJ 

SUBSEQUENT  TO  THE  INITIAL  DEVELOPMENT  OF  SUBROJTINE  SHELLS  BY 

SHELLS 

41 

CLJ 

L.  EWING  OF 

GET,  J.  GARBARINO  OF  GRC  SIGNIFICANTLY  REVISED  THE 

STEELS 

42 

CLJ 

SETTING  Of 

THE  ATMOSPHERIC  SHELLS  WITH  THE  INTENT  TO  REDUCE 

SHELLS 

43 

CLJ 

THE  RUNNING 

TIME.  FOR  THE  ORIGINAL  SETTING  OF  THE  ATMOSPHERIC 

SHELLS 

44 

CLJ 

SHELLS,  THE 

MAXIMUM  NUMBER  OF  BOUNDARIES  WAS  81.  FOR  THE  GRC 

SHELLS 

45 

CLJ 

SETTING.  IT 

IS  61.  THUS,  SEVERAL  VARIABLES  COULD  HAVE  THEIR 

SHELLS 

46 

CLJ 

DIMENSIONS  REDUCED  TO  61  F°»«  81.  GPC  HAS  ALSO  MADE  FACT 

SHELLS 

47 

CLJ 

DEPENDENT  ON  TRNSOPT  IN  PROHAM  ATXGEN  BY  SETTING  FACT  TO  1.0 

SHELLS 

48 

CLJ 

IE  TRNSOPT 

.NE.  FAST  AND  TO  10. C  IF  TRNSOPT  .EO.  FAST. 

SHELLS 

49 

CLJ 

WE  HAVE  KEPT  FACT  INDEPENDENT  OF  TRNSOPT. 

SHELLS 

SO 

CLJ 

SHELLS 

51 

CLJ 

Vi  RECORD  THE  BOUNDARIES  FOR  THREE  VALUES  OF  FACT,  PER  GRC. 

SHELLS 

5? 

CLJ 

HELLS 

53 

CLJ 

FOR  FACT  « 

1,  XO-1.25,  Xl-3.125,  X2-7.8125 

HELL  5 

S4 

CLJ 

J  H5 

J  HS  J  HS 

SHELLS 

55 

CLJ 

_ 

SHELLS 

56 

CLJ 

1  0. 

0CHNG1-10  13.12S  JCHNG2-1S  42.8125 

SHELLS 

5? 

CLJ 

7  1  .25 

11  16.250  19  50.6250 

&  c  L  L  S 

58 

Z  77 


CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CL. 

CLJ 

CLJ 

CLJ 

Cl  J 

CLJ 


C 

C 

CLJ 

CGET 

CGET 

CGET 

CGET 

CLJ 


3 

2. SO 

12 

19.375 

4 

3.75 

13 

22.500 

5 

5.00 

14 

25.625 

6 

6.25 

15 

28.750 

7 

7.50 

16 

31.875 

8 

6.75 

17 

35.000 

9 

FDR 

10.00 

FACT  • 

10, 

X0=3.0, 

Xl=7.5, 

J 

HS 

J 

HS 

_ 

.... 

1 

0.0 

JCHKG1=5 

16.5 

2 

3.0 

6 

24.0 

3 

6.0 

7 

31.5 

4 

FOR 

9.0 

FACT  = 

.1, 

X0=0.5, 

X 1 = 1 .25, 

J 

HS 

J 

HS 

.... 

I 

0.0 

JCHNGl'22 

11.25 

2 

0.5 

23 

12.50 

3 

1.0 

24 

13.75 

?i 

10.0 

41 

35.00 

"0 

58.4375 

SHELLS 

21 

66.2500 

SHELLS 

22 

74.0625 

SHELLS 

23 

81.8750 

SHELLS 

24 

8S.r>;!?5 

SHELLS 

25 

57.5000 

SHELLS 

SHELLS 

SHELLS 

.75 

SHELLS 

J 

HS 

SHELl  S 

SHELLS 

XHNG2*  8 

50.25 

SHELLS 

9 

69.00 

SHELLS 

10 

87.75 

SHELLS 

11 

106.50 

SHELLS 

SHELLS 

.125 

SHELLS 

J 

>;s 

SHELLS 

SHELLS 

XHNG?=42 

38.125 

SHELLS 

43 

41.250 

SHELLS 

44 

44.375 

SHELLS 

SHELLS 

, 

SHELLS 

SHELLS 

61 

97.500 

SHELLS 

SHELLS 

OUTPUT  PARAMETERS 
XYZCOM  COMMON 

NS  =  NUMBER  OF  ALTITUDE  BOUNDARIES 
HWELLtj;  -  ALTITUDE  BOUNDARIES,  CM  (J'l.NS) 
T$(J1  *  TEMPER AT'JPE  AT  ALTITUDE  BOUNDARY 
P5( ji  «  PRESSURE  AT  ALTITUDE  BOUNDARY  J, 


J,  DEG  K  (J*1,NS 
ATM  S 0=1, NS' 


*NSPEC(J,NI  =  SPECIES-N  DENSITY  AT  ALTITUDE  BOUNDARY  J,  1  'CM*'*" 


(0=1  .NS  .  «=1 .10) 


DIMENSION  PRHATR(ei) 

DIMENSION  I HAP/30)  ,  „  . 

COMflN  /  ATMOUP  /  HL.  SCAR,  I  DORN,  PP,  PHO,  TT ,  SNI'3C..  HRHu. 

CONWON  /  XYZCOM  /  IWt!  LTMTE.  NS.  HSH ELL ( 81 )  TS( 81  >  PSf?l 

XNSPECfBl.lD),  U'10,10.2).  UP..1C.10,?.,  HMO.S, 
■  FACT 


SMELLS 
SHELLS 
SHELLS 
SPELLS 
SHELLS 
^E!  1  S 
SHELLS 
SHELLS 
S“FLLS 
SHELLS 
Shells 

SH[L'.C 
SHELLS 
SWL.S 
shells 
oj  r-  i  ^ 
SHELLS 


DATA  'MAP  /  9,  11,  21 ,  IS,  14 ,  6,  70.  22,  16,  18  ' 

THE  ORIGINAL  GEt  ALGORITHM  IS  COMMENTED  0UT  WITH  CGF1. 

NS  •  «0,S  -  2.5  *  FACT 

NS  *  MAUD'  30,  MINJf  2  *  NS,  80  1  I  <1 

JCHNGE  *  2  *  NS  /  2 

X  •  40.  /  FLOAT'  NS  -  1  1 


SHELL  a 

Shells 

shells 

SHELLS 

SHELLS 

'nr.; S 

5)  E  L  S 
RhK  t  S 


NS  '  S.1  *  7. /FACT 

NS  ■  MAE-T'  10,  MIND'  60.  2*NS  3 

JFHNGl  *  2  ♦  NS/3 

JCMNS?  *  ?  *  2*NS'3 

>  ■  30. /FLOAT 'NS-1 ) 


y  c 

SM  E  L  . r 
SHEL  S 
S“E.  •.  S 
Sp  R . .  - 


69 

60 

6! 

6? 

63 

64 
6r* 

66 

67 

65 

69 

70 

71 

72 

73 
79 
75 
'  b 

77 

78 

79 
90 
81 
8? 

83 

84 
86 
86 

87 

88 

89 

90 

91 

92 

93 

94 
96 

96 

97 
99 

03 

10P 

in; 

10? 

10? 

104 

lnt 
]nE. 
107 
11  »■ 
lP'R 
IK 
1 1 1 


i'.i 


HS  -  -X 

SHELLS 

116 

WRITE(6.5) 

shells 

117 

5  FORMAT (1H1, MX, A3H*  *  *  OUTPUT  FROM  SUBROUTINE  SHELLS  *  *  *,//,l 

SHELLS 

11° 

SH  .126H  J  H SHELL  TS  PS  NO  NO*  N20 

SHELt  S 

r.o 

S  NO?  03  CO?  CO  CH4  H?0  0 

SHELLS 

120 

JH/.1H  ,?8H  X'  DEG  K  ATMOS  ,10(I!X,7H1./CM**31' 

SHELLS 

17) 

DO  10  J=1 , NS 

shells 

1?7 

CGfT  IF (  J  .EQ.  JCHNGE  )  X  =  4.  *  X 

SHELLS 

123 

1F(  J  .EO.  XHNG1  )  X  =  2.5*X 

SHELLS 

{?« 

IF (  J  .EO.  JCHNG2  )  X  -  2.5*X 

SHELLS 

125 

HS  *  HS  +  X 

SHELLS 

i?5 

C 

ESTABLISH  ARRAY  OF  SHELL-BOUNDARY  ALTITUDES. 

SHELLS 

127 

HSHELL(J)  =  HS  *  1.E5 

SHELLS 

128 

CALL  ATMOSU  [  2,  KS  1 

SHELLS 

129 

CALL  S PCM  IN  (  ?,  HS  ) 

SHELLS 

130 

SNKll!  *  0. 

SHELLS 

131 

CLJ 

SHELLS 

1 3? 

CL  J 

THE  TEST  ALTITUDE  IN  THE  FOLLOWING  IF-STATEWES*,  INITIALLY  SE* 

shells 

132 

CLJ 

TO  75  XM  BY  G.E. TEMPO,  HAS  REEN  CHANGED  TO  90  BECAUSE 

SHELLS 

134 

CLJ 

SUBROUTINE  IONCS"  COMOUTfS  NO*  ONLY  FOR  ALTITUDES  .GE.  90  X*. 

SHELLS 

135 

CLJ 

EURTHER,  NO*  IS  PROBABLY  NEGIIBLE  BELOW  90  X". 

SHELLS 

136 

CLJ 

SHELLS 

137 

1F(  HS.GE.90.  )  CALL  IONOSU(  2.HS  ) 

SHELLS 

133 

TS(J)  -  AMIN1!  300. ,TT  ) 

SHELLS 

139 

PSfJ)  *  DD  /  I.01325E6 

SHELLS 

140 

00  I  N  =  1 ,30 

SHELLS 

14! 

1  *  IMAP.'N) 

shells 

14? 

XNSPEC(J.N)  *  SNI(I) 

SHELLS 

143 

1  CONTINUE 

SHELLS 

144 

WRITE' 6. 11)  J.HS.TSIJ'  RS.'J) ,!XNSREC(J.N),N=1,10; 

s“ELLS 

145 

11  FORMAT  (1* , 1 3 ,1PF10. 3.0PE6 .1 ,1°!! EI0.3) 

SHELLS 

I4F. 

10  CONTINUE 

SHELLS 

14’ 

CLJ 

TO  FACILITATE  COMPARING  009  ATMOS°HERE  WITH  TH05E  USED  BY 

SWELLS 

14? 

CLJ 

OTHER  WORKERS,  THE  FOLLOWING  STATF*f<TS  (DD-LODO-TO  AW. 

SHELLS 

149 

CLJ 

ASSOCIATED  PRINT)  WERE  ADDED  TO  COMPUTE  THE  WA*EP  CONTfN’ 

S«EILS 

IS? 

CLJ 

OF  THE  ATMOSPHERE  ALONG  A  VERTICAL  PAT»  ABOVE  EAC«  Or  THE 

Su :  L  L  S 

*  C  3 

CLJ 

SHELL  BOUNDARIES.  THE  WATER  CONTENT  ABOVE  BOUNDARY  J, 

SHELLS 

is; 

CLJ 

PRWATR'J),  is  EXPRESSED  IN  UNITS  OF  PRECIPITABLE  CENTIMETERS, 

SHELLS 

ic^ 

CLJ 

I.E.. 

SHELLS 

CLJ 

F9  CM(H?0)  =  3.34*E*2?  MOlECULES-’DM**?  . 

SHELLS 

\ 

CL  J 

WE  ASSUME  AN  EXPONENTIAL  PE3ESDENCE  Or  THE  WATER  Vi  poo 

SH  F  .  F 

'it* 

CL.' 

CONCENTRATION  BEtwEEN  the  BOUNDARIES  AND  hence  call  FUNCTION 

shell  e 

CLJ 

ACC  lm*  with  try  of  =  ?. 

SW  E .  L  c 

3  C  2 

PRWATR(NS!  -  0. 

S“FLLS 

00  ?C  I-?, NS 

shells 

}  f\  *"■ 

J  *  NS  -  I  *  1 

SHELLS 

1  f.  i 

DElopw  *  ACI'JM’  ?,  hshEll'J’,  HSHELL  <  J*:  1 ,  *NSPEC 'J,9\ 

SHELL  F 

I  XNS°EC  I  J*1 ,°  1,  HSHELL  f  J  > ,  HSHELL  '  W3.34F*?? 

SHELL  s 

iK? 

PRWATRIJi  «  PRWATR  J+l  1  ♦  DEL  °RW 

Sw  EL  L  c 

20  CONTINUE 

Shf-.L  S 

i*f 

WO  I TF  f  B , 2Nl  (  HSHELL  !  J  I ,  PRWATP (J>,  J.] ,NS  1 

Shell  s 

?e  FOfi“AT  !*C  HShEll  ixM-,  PRWATR'PR  **/!  5»,1P!0E1?.A  I '■ 

f,u  r  l  Y 

*  f.  - 

RETURN 

ShF.L5 

i*c 

TNO 

ShF. .  c 

SUBROUTINE  SOLRAO(K,B,E) 

SOLRAD 

2 

ccc 

SOLRAD 

3 

c 

SUBROUTINE  SOLRAD  PROVIDES  THE  SOLAR  SPECTRAL  IRRADIAHCE 

SOLRAD 

4 

c 

AT  THE  TOP  OF  THE  EARTH'S  ATMOSPHERE ,  IN  THE  SPECTRAL  RANGE 

SOLRAD 

5 

c 

FROM  2  TO  5  MICROMETERS  (OR  5000  TO  2000  WAVENUMBERS! . 

SOLRAD 

6 

c 

THE  NASA  DATA  ADOPTED  BT  THE  ASTM  HAVE  BEEN  FITTED  BY 

SOLRAD 

7 

c 

PIECEWISE-CONTiNUOUS  POWER-LAV  EXPRESSIONS. 

SOLRAD 

8 

ccc 

SOLRAD 

9 

c 

INPUT  PARAMETERS 

SOLRAD 

10 

c 

B  -  WAVENIH8ER  (CM-1)  ,  K»l, 2,3,4 

SOLRAC 

11 

c 

-  WAVELENGTH  (UM)  ,  K*5,6,?,8 

SOLRAD 

12 

c 

K  -  INDEX  SPECIFYING  UNITS  FOR  INPUT  AND  OUTPUT 

SOLRAD 

13 

CC£ 

SOLRAD 

14 

c 

OUTPUT  PARAWTERS 

SOLRAD 

15 

c 

E  -  SOLAR  SPECTRAL  IRRADI ANCE  AT  THE  TOP  OF  THE  EARTH'S 

SOLRAD 

16 

c 

ATMOSPHERE,  IN  UNITS  OF... 

SOLRAD 

17 

c 

PHOTONS/ (CH**2  SEC  CM-1)  ,  K=l,5 

SOLRAD 

18 

c 

PHOTON S/(CM**2  SEC  UM)  ,  K«2,6 

SOLRAD 

19 

c 

WATTS/ (CM**2  CM-1)  ,  X-3,7 

SOLRAD 

20 

c 

WATTS/ (  M**2  UM  )  ,  K*4,8 

SOLRAD 

21 

ccc 

SOLRAD 

22 

DATA  C.H  /  2.997925E+10,  6.626176E-27  / 

SOLRAD 

23 

DATA  E2P2.E2P9.E3PS.E4P0.E5P0  /  79.0,35.0,14.6.9.50,3.79  / 

SOLRAD 

24 

DATA  C2P2,C2P9,C3P5,C4PO,C5PO  /  2. 2, 2. 9, 3. 5, 4. 0,5.0  / 

SOLRAD 

25 

DATA  FLAG  /  -2.0  / 

SOLRAD 

26 

ccc 

SOLRAD 

27 

1F(  FLAG.GT.0.0  )  GO  TO  20 

SOLRAD 

28 

FLAG  -  *2.0 

SOLRAD 

29 

HCIV  *  1.0E*07/(H*C) 

SOLRAD 

30 

A2P2  *  ALOG(E2P9/E2P2)/ALOG(C2P9/C2P2) 

SOLRAD 

31 

A2P9  *  AL0G(E3P5/E2P9)/AL0G(C3P5/C?P9) 

SOLRAD 

3? 

A3P5  -  ALOG(E4PO/E3P5)/ALOG(C4PO/C3P5) 

SOLRAD 

33 

A4P0  »  ALOG(E5PO/E4PO)/AIOG(C5PO/C4PO) 

SOLRAD 

34 

20  CONTINUE 

SOLRAD 

35 

a  * e 

SOLRAD 

36 

IF (  A.LE.0.0  )  GO  TO  27 

SOLRAD 

37 

IF (  (K.LE.O)  .OR.  (K.GI.8)  )  SO  TO  29 

SOLRAD 

38 

IF(  K.LT.5  )  A  -  1.0E-04/A 

SOLRAD 

39 

IF (  (A.LT.2.)  .OR.  (A.GT.5.)  )  SO  T0  27 

SOLRAD 

40 

IF (  A.6E.C4P0  )  60  TO  23 

SOLRAD 

41 

!F(  A.6E.C3P5  )  60  TO  22 

SOLRAD 

4? 

IF (  A.GE.C2F9  )  GO  TO  21 

SOLRAD 

43 

E  *  E2P2*(A/C?P2)«A2P2 

SOLRAD 

44 

GO  TO  24 

SOLRAD 

45 

21 

E  •  E2P9*(A/C2P9)**A2P9 

SOLRAD 

46 

GO  TO  24 

SOLRAD 

47 

22 

E  «  E3P5*(A/C3P5)**A3P5 

SOLRAD 

*? 

GO  TO  24 

SOLRAD 

48 

23 

E  *  E4P0*( A/C4P0)**A4P0 

SOLRAD 

50 

24 

IF!  (K.EO-4)  .OR.  (K.EO.BI  1  GO  TO  2S 

SOLRAD 

M 

IF(  (K.EQ.3)  .OR.  (6 . EO .7 1  )  GO  TO  26 

SOLRAD 

52 

IF (  (K.FQ.2)  .OR.  (K.EQ.6)  )  60  TO  25 

SOLRAD 

5  ? 

E  -  1.0E-12»HCIV*E*A*A*A 

SOLRAD 

54 

GO  TO  28 

SOLRAD 

55 

25 

E  *  1.0E-08*HC!V*E*A 

■■olrad 

56 

GO  TO  2B 

SOLRAD 

57 

26 

E  •  1.0£-0B*E*A»a 

SOLRAD 

58 

o  o 


28  RETURN  — —  - 

27  PRIHT  31.  A  „.c  arfu  CALLED  WITH  WAVELENGTH  (OR  SOLRAD 

31  FORMAT  (8JHO  SUBROUTINE  SOLRAO  HA5  BEEN  LN.Lt  SCLRAO 

*  . Aiif  D iMCr  F  1?  ,N  )  i-ai  n  Art 


SOLRAD 

SOLRAO 


SCLRAO 

SOLRAD 

SOLRAD 


1  FORMAT  (82m)  "vr,  ;r 

i  WAVENUfCER)  OUT  Of  RANGE.  ,E12.*) 

CALL  EXIT  - 

28  PRINT  33,  K  mratt,ut  u.c  BEfH  CALLED  WITH  IMPROPER  VALUE  SOLRAD 

33  FORMAT  (68H0  SUBROUTINE  SOLRAD  HAS  BttN  ln.lcu  «  SOLRAD 

J  FOR  INDEX  K. ,110)  SOLRAD 

CALL  EXIT 


$9 

60 

61 

6? 

63 

64 
66 
66 

67 

68 


CCC 

ccc 

CCC 


SUBROUTINE  SORTLJ(  A.B.C.N.LOHI  ) 

civFN  THF  A  ARPAY  OF  LENGTH  N,  THIS  ROUTINE  SORTS  3HE 
Sf.RAY  FROM  LOW  TO  HIGH  IF  LOH!  .LE.O  AND  FROM  HIGH  TO  LOW 

thfTawTc° ARRAYS  ARE  SIMPLY  CARRIED  ALONG. 


DIMENSION  A(l),  8(1),  C(l) 

M  •  N 

20  M  *  M/2 

IF(  M.Eq.O  )  GO  TO  40 
K  -  N-M 
J  -  1 
41  I  -  J 
«n*M 

IF (  L0H1  )  50,50,62 

C  *  •  *  SORT  LOW  TO  HIGH. 

50  IF(  A(L).GE.Ad)  )  60  TO  60 
GO  TO  55 
C 

c  *  *  *  SORT  HIGH  TO  LOW. 

52  IF(  A(L).LE.Ad)  )  GO  TO  60 
55  X  -  A(I) 

Y  *  Bd) 

i » cd) 

A(I)  *  A(l) 

B(I)  *  8(1) 

cm  *  c(D 

A(L)  -  X 
8(L)  *  T 
C(L)  *  l 
l  *  I-M 

IF (  I.GE.l  )  GO  TO  49 

60  J  *  J+l 

IF (  J-X  )  41,41,20 
AO  RETURN 
END 


50RUJ  ? 

SORTLJ  3 

SORTLJ  4 

SORTLJ  5 

SORTLJ  6 

SOR TL J  7 

SORTLJ  8 

SORTLJ  9 

SORTLJ  10 

SORTLJ  H 

SORTLJ  12 

SORTLJ  13 

SORTLJ  1* 

SORTLJ  15 

50RTLJ  16 

SORTLJ  17 

SORTLJ  18 

SORTLJ  19 

SORTLJ  ?0 

SORTLJ  21 

SORTLJ  22 

SORTU  22 

SORTLJ  24 

SORTLJ  25 

SORTLJ  26 

SORTLJ  27 

SORTLJ  28 

SORTLJ  79 

SORTU  30 

SORTLJ  31 

SORTLJ  3? 

SORTL J  33 

SORTU  34 

SORTLJ  35 

SORTU  36 

SORTLJ  37 

SORTLJ  39 

SORTLJ  39 

SORUJ  <0 
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SUBROUTINE  STEP  f  RX  ,  SHAT.  CIST,  NC.  OS.  XFRACS,  1NDX  1 

STEP 

7 

c 

p 

o 

c 

•STEP*  CALCULATES  THE  INTERSECTIONS  OF  AN  OPTICAL  PATH  WI'h 

STEP 

* 

c 

the  linearly  varying  SHELLS  IN  tvE  ATMOSPHERIC  MODEL.  PA*h 

STEP 

L 

c 

ELEMENTS  LESS  than  ten  meters  !N  length  ape  assigned 

5TEP 

f. 

c 

TO  the  neighboring  shell. 

SY 

- 

c 

STEP 

C 

Cul 

STEP 

Q 

CIO 

INPUT  PAPAMETLC 

STEp 

CLJ 

ARGUMENT  list 

STEp 

cl  j 

RX'i;  *  LOCATION  VECTOR  TO  ONE  ENP  OF  yr  \\SH!  fS'OS  path. 

STEP 

’  ? 

CLJ 

TYPICALLY  8U'  NPt  NECESSARILY  At  the  DETECTO».  C'H 

S^EP 

p 

CLJ 

SHAT  { I }  *  UNIT  VECTOR  ALONG  THE  TRAN  MISSION  °ATH  FRO"  RY  ro 

STEP 

CLO 

RX,  C* 

IE 

CLJ 

(FOR  RX  AND  SHAT  1=1,3' 

STE° 

1* 

CLJ 

DIET  =  MAGNITUDE  OF  DISTANCE  ALONG  TRANSMISSION  PA*h 

STEp 

l7 

CLJ 

FROM  RY  TO  RX,  CM 

STEP 

i  a 

CLJ 

NC  =  IN!  T!  AL  I  ZAT'.ON  VALUE.  NORMALLY  SET  TO  C  AN"-  LEAOF 

$rE5 

;  Q 

CLO 

TO  DS'l)  BEING  SET  TO  0.6. 

STP5 

?? 

CLJ 

XY2C0“  COMMON 

STEP 

CLJ 

NS  =  NUMBER  OF  SHELL  BOUNDARIES  In  A*V0SPHERIC 

STEP 

<7 

CLJ 

TRANSMISSION  MODEL 

5TEP 

-)  « 

CLJ 

OUTPUT  P\RA“ETERS 

STEP 

?4 

CLJ 

ARGUMENT  LIST 

ycc 

?5 

CLJ 

NC  =  NUMBER  OF  PATH  SEGMENTS  PIUS  ONE  ON  the 

S"EP 

?f 

CLJ 

TRANSMISSION  PATH  FROM  RY  TO  RX,  OR  EOUI VALENCY , 

STE° 

?? 

CLJ 

the  numeer  OF  ENDPO!NtS. 

S*EP 

?S 

CLJ 

for  T  =1 .SC 

STEP 

?9 

CLJ 

OS;  1+1}  =  LENGTH  OE  LINE  SEGMENT  I  ALONG  TRANSMISSION 

STl* 

?" 

CLO 

PATH,  cm 

STE  p 

CLJ 

NO'E...  IT  IS  ALWAYS  TRUE  tvi**  OS”. '=0.  AND 

S"EP 

5- 

CLJ 

D5’VC*1'=-!.  'TnFQc  ARE  TWO  MORE  VALUES  Ce  DC 

5* 

CLJ 

THAN  THERE  APE  SEGMFntf.' 

^:p 

-if. 

CLJ 

XFRACS'!'  -  (SEE  NO'*  IN  SUBROUTINE  ATMRAD' 

5T*  r 

iz 

CLJ 

INOX '  I '  .  INDEX  OF  SHELL  BOUNDARY  A*  OR  JUST  BEFORE  THE 

}* 

CLJ 

Tact  of  *vr  LINE  SEGMFN’  I.  INDX'NC'  WILL  BE  *•• 

^CZ 

CLJ 

INDEX  OF  THE  S“ELL  SOUNDA0*  JUS*  Ar’Es  TJE  1*5* 

VE5 

■>- 

CLJ 

endpoint. 

STEP 

3S 

CLJ 

note.  . .  INDX'NC*:'  --  0 

STE  " 

4~ 

CLJ 

S"EP 

•  ' 

DIMENSION  DS‘  1001,  XFRACS'1001,  INDX'100’,  Rx'3',  SHAT',3' 

S’EP 

4: 

common  /  XYZCOM  >  ITMTf,  Lt“tf,  ns,  hf»ELL'S1'.  TS{81),  PS’S!  i. 

SrE° 

£} 

1  XNSPEC- PI  ,10  ■  U'10,10,?',  L’R'  ID  jo  ?  I  ***"'  S 

STEP 

44 

2  FACT' 

$vEp 

4C 

DAtA  eras  /  6 .3’  1?3E*0B  / 

^rr 

do 

c 

ERAD  =  RBOD*  When  /CONCDN-  15  ADDED 

STEp 

i1 

C 

z-cz 

ft? 

c 

determine  INITIAL  DIRECt!ON  of  integration 

hr 

AG 

RXRDOT  *  DOT'  R x ,  $HAT  i 

$rrc 

5  " 

IF  '  RXYDOT  '  2 ,  2,  1 

rz° 

L  ' 

s 

SIGN  *  1. 

STEP 

C  0 

IS  -  1 

V  r  c 

C  1 

GO  T0  3 

Cl 

1 

SIGN  *  -1. 

$?E* 

C.C. 

IS*-! 

tf 

* 

V 

INITIAL'!!!  COUNTY'S  AND  OTHER  .AlUEF 

yrz 

S'* 

3 

RX?  .  DO'  RX  PX  ' 

3  »l:‘ 


RXi  *  SO RT'  RX?  5 

STEP 

SQ 

RAEi?  =  RrrDC***? 

S-cp 

60 

If  f  NC  .EO.  0  '  CS ?  1  '■  -  0. 

STEP 

61 

If  (  RC  .GT.  0  '■  NC  =  NC  -  ! 

CTTP 

6? 

XL  l1  4  0. 

hi* 

6? 

SRAD  -  RXL 

STEP 

f>4 

N$T  =  0 

STEP 

fc 

IF  (  IS  .LT.  0  1  NST  4  NS  *  1 

ST  Ep 

6f 

N  4  N'T 

ST  cd 

c 

SAVE  PREVIOUS  SHELL  INDEX 

S’E  p 

4 

NOLO  *  N 

S^EP 

Cw 

c 

STEP  TO  NEXT  SHELL 

CTCO 

70 

N  4  N  4  IS 

CTCP 

71 

c 

TEST  POP  ATNOSOHERE  LIMIT 

STEP 

7? 

IF  f  N  .EO.  0  .OR.  N  .GT.  NS  )  GO  TO  7 

$7£P 

73 

r 

LIROA'E  SHELL  RADKIN 

STEP 

74 

SROLO  *  SR  AD 

STEP 

7E 

SR  AO  =  ERAS  *  HSHELLIN' 

STEP 

7£ 

IF  (  SiAD  .NE.  SROlO  )  XFRAC  =  FRACI  SRAD,  SROLD,  3?AD,  RXL  1 

ST£p 

7^ 

DISC  4  RKD?  -  !  RX?  -  SRAO**?  1 

STE° 

78 

c 

NEGATIVE  DISCRIMINANT  IMPLIES  NO  INTERSECTION 

srP 

TP 

IF  (  DISC  '  8.  5,  E 

STEP 

80 

5 

DNEV  -  AMAXH  SIGN*SC«TI  DISC  )  -  RXKDO*.  C.  1 

STEP 

81 

DELTA  *  PNEH  -  OCLD 

STEP 

82 

IF  (  DELTA  -  1.E3  14,4,6 

STEp 

5? 

c 

UPDATE  DISTANCE  AND  STORE  INTEGRATION  CELL  INEORMAtION 

STE° 

8*! 

6 

DOLO  s  ONEW 

ST*P 

NC  =  NC  + 

step 

5f 

XFRACSINC)  *  XFRAC 

STEP 

flD 

INPX.'NC'  *  NOLO 

$TED 

8F 

c 

IGNORE  STEP  TO  TOP  OF  ATM-DSPH-Rf 

57  rp 

?? 

IF  i  NOlD  ,G*.  NS  !  NC  *  NC  -  1 

^cp 

°? 

05  s'  NC4! =  DELTA 

crjc 

o’ 

c 

TEST  DISTANCE  LIMIT 

STEP 

9? 

IF  (  OIST  ,GE.  0NEW*1.E3  '  !*  <  NC  -  9“  '  4 ,  10.  10 

ST»P 

0  7 

DS!NC*1 '  «  DS'NC4’ ’  -  !  DNEW  -  DIET  ' 

S-::r 

94 

c 

LAS*  sj ll  On  f ath 

S'j  P 

7 

RXL  4  s.  . RX?  »  0;sT*»?  *  ?.  *  RXKXT  *  DIE*  ' 

STlp 

Qf 

IF  f  N  'eo'  0  '  RXl  *  E»4D 

$TSP 

Q  " 

NC  =  NC  4  1 

S'rF2 

Q£ 

INPX'NC'  «  !NDXrN€-l 1  4  IS 

STEP 

QQ 

OS ' Nr  4  3  =  -1. 

$TE* 

*** 

XPRACS'NC'  4  fRAC'  S>  AD,  SROLD,  Rx».  SRiLD  ' 

'“l 

INDX'NC4!'  «  0 

$T*p 

lO? 

RETURN 

S’;P 

’  T  -J 

c 

IF  [N*E GRA* ION  HAS  SEEN  DOWN,  Ch'!TCH  TO  L'P 

S  'Ec 

r'-i 

0 

!c  1  SIGN  '■  o.  4,  4 

sT:  “ 

It  = 

9 

SIGN  *  1. 

ST£* 

;“c 

IS  4  1 

rr: 

*  <'  ■ 

r 

Sr  MIDPOINT  Of  CK!6?  AS  AN  INTEGRATION  BO  IN*  ?EnD  OF  CELL’ 

'T  PC’ 

jo; 

RXL  4  SOB’-  RX?  -  RXD?  1 

CTM 

1  ^ 

ONER  »  -RXKOO* 

cTrr 

!  1 " 

PEL'A  -  ONE*  -  GOLD 

c* : 

IF  :  DE.TA  -  l.E?  '  4,  4,  f 

s'E'f 

1 1 " 

c 

DIMENSION  l!“!’  HAS  BEEN  EXCEEDED 

c-r: 

1  ? 

10 

INO>  RR'  4  !N0<  9F  4  IS 

5-  E? 

1  ’  1 

V  cs  i;  S '  09 '  -  ! 

cTrr 

'.  1 c 

NC  *  99 

*Tr: 

1  c 

PS'!'1'’’  -  .  1. 

ret 

‘  ‘  ’ 

iNpx'100'  4  P 

S'  E  * 

Rr-JRN 

C’?t 

11 2 

ENT. 

$-rr 

■i 


SUBROUTINE  STEPS  (  RX,  RT,  NC,  DS,  XFRACS,  !ND<  ) 

STEPS 

2 

c 

STEPS 

3 

c 

*ST£P$*  1 S  AH  turn  TO  *STEP«  WHEN  THE  PATH  IS  DEFINED  8T 

STEPS 

A 

c 

ITS  END  POINTS. 

STEPS 

5 

c 

STEPS 

6 

CLJ 

STEPS 

7 

CLJ 

INPUT  PARAMETERS 

STEPS 

8 

CLJ 

ARGUMENT  LIST 

STEPS 

9 

CLJ 

RX(  1 )  •  LOCATION  VECTOR  TO  ONE  END  OF  TRANSMISSION  PATH, 

STEPS 

10 

CLJ 

TYPICALLY  BUT  NOT  NECESSARILY  AT  THE  DETECTOR,  CH 

STEPS 

11 

CLJ 

RY(I)  -  LOCATION  VECTOR  TO  ONE  ENO  OE  TRANSMISSION  PATH, 

STEPS 

12 

CLJ 

TTPICALLV  AT  THE  SCATTERING  OR  SOURCE  POINT,  CM 

STEPS 

13 

CLJ 

(FOR  RX  AND  RT  1*1,3} 

STEPS 

1A 

CLJ 

NC  *  INITIALIZATION  VALUE.  NORMALLY  SET  TO  0  AND  LEADS 

STEPS 

15 

CLJ 

TO  DS(1)  BEING  SET  TO  0.0  IN  SUBROUTINE  STEP. 

STEPS 

16 

CU 

OUTPUT  PARAMETERS 

STEPS 

17 

CLJ 

INTERNAL  USE  (FOR  CALL  TO  SUBROUTINE  STEP) 

STEPS 

18 

CLJ 

SHAT ( I )  *  UNIT  VECTOR  ALONG  TRANSMISSION  PATH  FROM  RT  TO  RX, 

STEPS 

19 

CLJ 

CM  (1*1,3) 

STEPS 

20 

CLJ 

DIST  =  MAGNITUDE  OF  DISTANCE  ALONG  TRANSMISSION  PATH  FROM 

STEPS 

21 

CLJ 

RT  TO  RX,  CM 

STEPS 

n 

CLJ 

ARGUMENT  LIST 

STEPS 

23 

CLJ 

(FOLLOWING  JUANTITIES  ARE  OBTAINED  BT  A  CALL  TO  STEP) 

STEPS 

2A 

CLJ 

NC,  DS.  XFSACS,  AND  INOX.  (SEE  ‘STEP*  FOR  DEFINITIONS) 

STEPS 

25 

CLJ 

STEPS 

26 

DIMENSION  OS(IOO),  XFR/CS(100),  INOX(IOO).  SHAT(3),  RX(3),  RY(3) 

STEPS 

27 

C 

STEPS 

28 

C 

PATH  SEGMENTS  LESS  THAN  10  METERS  IN  LENGTH  ARE  MOT  TREATED  AS 

STE°S 

70 

C 

SEPARATE  INTEGRATION  STEPS. 

STEPS 

30 

C 

STEPS 

31 

CLJ 

STEPS 

32 

CLJ 

SMAT  «  VECTOR  DIFFERENCE  BETWEEN  VECTORS  RT  AND  RX 

STEPS 

33 

CLJ 

01ST  *  magnitude  of  vector  SHAT 

STEPS 

34 

CLJ 

STEPS 

35 

CALL  SUBVEC  (  RT,  RX,  SHAT  ) 

DIST  *  SQRT(  DOT (  SHAT,  SHAT  )) 

STEPS 

36 

STEPS 

37 

If  (  DIST  .LT.  1 ,E3  )  RETURN 

STEPS 

38 

CLJ 

STEPS 

39 

CLJ 

OBTAIN  A  UNIT  VECTOR  ALONG  THE  VECTOR  9MAT  AND  CALL  IT  SHAT 

STEPS 

40 

CLJ 

STEPS 

41 

CALL  UMITV  (  SHAT,  SHAT  ) 

STEPS 

42 

CALL  STEP  (  RX,  SHAT,  DIST,  NC,  DS,  XFRACS,  IHDX  ) 

STEPS 

43 

RETURN 

STEPS 

44 

END 

STEPS 

45 

SUBROUTINE  SUBVEC  (  VX,  VT,  OVXY  ) 

SUBVEC 

y 

CLJ 

SUBVEC 

3 

CLJ 

SUBROUTINE  SUBVEC  RETURNS  THE  DIFFERENCE  BETWEEN  VECTORS  VX 

SUBVEC 

4 

CLJ 

AND  VT,  I.E.,  OVXTU-3)  *  VX(l-3)  -  W(l-3>. 

SUBVEC 

5 

CLJ 

SUBVEC 

6 

DIMENSION  VX/3),  VY(3 ) ,  0VXT(3) 

SUBVEC 

7 

CALL  VI  IN  (  OVXY,  1.  ,  VX,  -1.  ,  VT  ) 

SUBVEC 

8 

RETURN 

SUBVEC 

9 

END 

SUBVEC 

1  AN 
1  Li 
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SUBROUTINE  SURRAD! 1DETEC,MSM,DD.$PCULR,IUP. JUP.KUP.LUP.ZLAM, 

SURRAD 

2 

S  IFIRES.RAD.UPS.UPPS.UCS.UPCS) 

SURRAD 

3 

ccc 

SURRAD 

4 

c 

SUBROUTINE  SURRAD  PROVIDES  (ESSENTIALLY),  AT  THE  POINT  P  WHERE 

SURRAD 

5 

c 

THE  OPTICAL  L INE-OF-S1GHT  FROM  THE  DETECTOR  (WHICH  IS 

S'JRRAD 

6 

c 

FICTITIOUS  IN  THE  NB°  MODULE)  AT  POINT  V  INTERSECTS  THE 

SURRAD 

7 

c 

EARTH'S  SURFACE,  THE  UPWELLING  RADIANCE  DIRECTED  TOWARD  THE 

SURRAD 

8 

c 

DETECTOR.  SURRAD  PROVIDES  TWO  COMPONENTS  OF  THE  RADIANCE... 

SURRAD 

9 

c 

(1)  THERMALLY  EMITTED  AND  (?)  SOURCE  (SUN  OR  FIREBALL) 

SURRAD 

10 

c 

REFLECTED.  REFLECTED  SKY  RADIANCE  IS  NOT  INCLUDED.  STRICTLY. 

SURRAD 

11 

c 

THE  SOURCE-REFLECTED  COMPONENT  IS  ACTUALLY  PROVIDED  IN  AN 

SURRAD 

1? 

c 

UNATTENUATED  FORM  TOGETHER  WITH  THE  PATH  PARAMETERS  (AREAL 

SURRAD 

13 

c 

DENSITY  U  AND  UP,  WITH  R  THE  PRESSURE),  INTEGRATED  ALONG  THE 

SURRAD 

14 

c 

INCOMING  PATH  FROM  THE  SOURCE,  REQUIRED  AS  INPUT  TO  A  COMPU¬ 

SURRAD 

15 

c 

TATION  OF  THE  MOLECULAR  ABSORPTION  OVER  A  TOTAL  PATH. 

SURRAD 

16 

c 

THE  AEROSOL  TRANSMITTANCE  ALONG  THE  INCOMING  PATH  FROM  THE 

SURRAD 

17 

c 

SOURCE  IS  ALSO  PROVIDED. 

SURRAD 

18 

ccc 

SURRAD 

19 

c 

THE  STATISTICAL  CLOUD  SUBMODEL  HAS  NOW  BEEN  INCLUDED. 

SURRAD 

?0 

c 

SEE  SUBROUTINE  UPWELL  FOR  COMMENTS. 

SURRAD 

21 

c 

NOTE  THAT  THE  INPUT  PARAMETERS  FOR  POINT  C  IN  POSITN  COUPON 

SURRAD 

22 

c 

AND  IKM  IN  UPWELS  COMMON  FACILITATE  PROVIDING,  AS 

SURRAD 

23 

c 

ADDITIONAL  OUTPUTS  FOR  THE  PATH  FROM  THE  SUN  TO  POINT  C  AT 

SURRAD 

24 

c 

12-KM  ALTITUDE,  THE  PATH  PARAMETERS  UCS  AND  UPCS  AND  THE 

SURRAD 

26 

c 

AEROSOL  TRANSMITTANCE  TASC(LUP). 

SURRAD 

26 

ccc 

SURRAD 

27 

c 

INPUT  PARAMETERS 

SURRAD 

28 

c 

ARGUMENT  LIST 

SURRAD 

29 

c 

IOETEC  -  FLAG  FOR  NATURE  OF  DETECTOR  LOCATION 

SURRAD 

30 

c 

-  1  IF  DETECTOR  IS  AT  A  SATELLITE  POSITION 

SURRAD 

31 

c 

( SATLAT.SATLON, SATALT)  SPECIFIED  IN 

SURRAD 

32 

c 

SATELL  COMMON 

SURRAD 

33 

c 

=  ?  IF  DETECTOR  IS  AT  A  POSITION  (DETLAT, 

SURRAD 

3< 

c 

DETLON.DETALT)  SPECIFIED  IN  TECTOR  COMMON. 

SURRAD 

35 

c 

THIS  LATTER  OPTION  IS  USED  WHEN  SUBROUTINE 

SURRAD 

36 

c 

SURRAD  IS  CALLED  FROM  SUBROUTINE  UPWELL. 

SURRAD 

37 

c 

MSM  -  INDEX  FOR  CATEGORY  OF  SURFACE  MATERIAL  (SEE 

SURRAD 

38 

c 

SUBROUTINE  ESURE  FOR  DEFINITIONS) 

SURRAD 

39 

c 

DO  -  ADDITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE 

SURRAD 

40 

c 

MATERIAL  (SEE  SUBROUTINE  ESURE  FOR  DEFINITIONS) 

SURRAD 

41 

c 

SPCULR  -  LOGICAL  PARAMETER 

SURRAD 

42 

c 

■TRUE.  COMPUTE  COORDINATES  DF  SPECULAR  REFLECTION 

SURRAD 

43 

c 

POINT  ON  A  SMOOTH  HORIZONTAL  WATER  SURFACE 

SURRAD 

44 

c 

-FALSE.  DO  NOT  COMPUTE  COORDINATES  OF  SPECULAR 

SURRAD 

45 

c 

REFLECTION  POINT 

SURRAD 

46 

c 

EACH  OF  THE  FOLLOWING  FOUR  INDICES  SHOULD  BE  SET  TO 

SURRAD 

47 

c 

UNITY  IN  A  CALL  FROM  ANY  ROUTINE  OTHER  THAN  SUBROUTINE 

SURRAD 

48 

c 

UPWELL. 

SURRAD 

49 

c 

IUP  -  ALTITUDE-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

50 

c 

JUP  -  NADIR-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

61 

c 

KUP  -  AZIMTTH-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

52 

c 

LUP  -  WAVENLMBER-LOOP  INDEX  IN  SUBROUTINE  UPWELL 

SURRAD 

53 

c 

ZLAM  -  WAVELENGTH,  MICROMETERS 

SURRAD 

54 

c 

IF  IRES  -  FLAG  FOR  NUMBER  OF  FIREBALLS 

SURRAD 

55 

c 

«  0  IF  NO  FIREBALL  IS  TO  BE  INCLUDED 

SURRAD 

56 

c 

(AS  IS  THE  CASE  WHEN  SUBROUTINE  SURRAD  IS 

SURRAD 

57 

c 

CALLED  FROM  SUBROUTINE  UPWELL.) 

SURRAD 

5B 
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.GT.  0  If  1FIRES  FIREBALLS  ARE  TO  BE  INF  'jPEP  SURRAS'  59 

with  position  and  radiant  intensit  surrad  f- 

SPECIFIED  IN  FIRRAL  CCWON  SURRAP  6! 

TfCTOR  COMMON  (USED  WITH  SUBROUTINE  UPUELL'  SURRAS  6° 

DETLAT  -  DETECTOR  NORTH  LATITUDE,  RADIANS  SURRAS  FT 

CETlON  -  DETECTOR  EAST  LONGITUDE,  RADIANS  SURRAP  64 

DETALT  -  DETECTOR  ALTITUDE,  KM  SURRAS  FA 

FIRBAL  CO*WON  (NUT  USED  WITH  SUBROUTINE  L'PWELLl  SURRAP  6F 

FB’AT(r)  -  FIREBALL-I  NORTH  LATITUDE,  RADIANS  SURRAP  67 

FBLON(I)  -  MREBALL-I  EAST  LONGITUDE,  RADIANS  SURRAP  68 

FBALT(I)  -  FIREBALL-I  ALTITUDE,  KM  SURRAP  69 

FBRINT ( 1 1  -  FIREBALL-I  SPECTRAL  RADIANT  INTENSITY,  SURPAD  70 

WATTS/ (SR  CM-1)  SURRAP  71 

POSITN  COMMON  SURRAP  7? 

POSLAT  -  NORTH  LATITUDE  OF  POINT  P  AT  WHICH  LINE-OF-  SURRAP  73 

SIGHT  INTERSECTS  EARTH'S  SURFACE,  RADIANS  SURRAP  74 

POSLON  -  EAST  LONGITUDE  OF  POINT  P  AT  WHICH  LlNE-OF-  SURPAP  75 

SIGHT  INTfRSECTS  EARTH'S  SURFACE,  RADIANS  SURRAP  76 

POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT  S"RRAP  77 

INTERSECTS  EARTH'S  SURFACE,  KM  SURRAP  78 

C12LAT  -  NORTH  LATITUDE  OF  POINT  C  AT  WHICH  LINF -OF-  SURRAP  79 

SIGHT  INTERSECTS  THE  1?-KM  ALTITUDE  SURFACE,  SURRAD  80 

RADIANS  SURRAP  81 

C12L0N  -  EAST  LONGITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  SURRAD  B? 

SIGHT  INTERSECTS  THE  I2-KM  ALTITUDE  SURFACE,  SURRAD  83 

RADIANS  SURRAD  84 

C12ALT  -  ALTITUDE  OF  POINT  C  AT  WHICH  LINE-OF-SIGHT  SURRAD  85 

INTERSECTS  17-KM  Ai  TIThpc  Surf ACF .  KM  d'"c'A?  ba 

iAIELL  COW10N  f'.'OT  USED  WITH  SUBROUTINE  UPUELL)  SURRAP  87 

SATLAT  -  SATf  LITE  NORTH  LAdTUDE,  RADIANS  SURRA?  88 

SATLON  -  SATELLITE  EAST  LONGITUDE,  RADIANS  SURRA?  89 

SATALT  -  SATELLITE  ALTITUDE.  KM  SURRA?  9p 

SOL  ARP  C0*01  SURDA?  o; 

SOLLAT  -  SUBSOLAR  POINT  NORTH  LAdTUPE,  RADIANS  SURRAP  9? 

SOLLON  -  SUBSOLAR  POINT  EAST  LONGITUDE,  RADIANS  SURRA?  93 

SOURCE  COMMON  SURRA?  04 

THE  VARIABLES  IN  THIS  COWlON  ARE  RETURNED  FROM  A  CALL  TO  SURRA?  OF 

SUBROUTINE  RINOUT.  CURRENTLY  (APRIL  1980)  ONLY  THE  SUN  SURRA?  96 

IS  USEP  AS  A  SOURCE  FOR  SUBROUTINE  SURRA?.  FIREBALLS  SURRA?  9? 

ARE  NEVER  USEP  IN  THE  CALL  TO  SUBROUTINE  SURRAD  FROM  SURRAP  «9 

SUBROUTINE  UPWELL.  SURRA?  99 

SURRA?  100 

SRCZEN(l)  -  ZENITH  ANGLE  Or  RAY  INCOMING  TO  POINT  P  FROM  SURRAP  101 

THE  SUN,  RADIANS  SU»RAP  10? 

SRCZEN(l+l),  L  =  1 , IF  IRES  (NOT  USED  WITH  SUB,  UPWELL)  SURRAD  10} 

-  ZENITH  ANGLE  OF  RAY  INCOMING  TO  POINT  P  FROM  SURRAP  1?4 

FIREBALL-L,  RADIANS  SUPRA?  105 

SRCSR( L  +  l ) ,  1*1 , IF  IRES  (NOT  USED  WITH  SUB.  UPWELL)  SUPRA?  l?s 

-  SLANT  RANGE  FROM  FIREBALL-L  TO  POINT  P,  KM  SURRA?  1£T 

UPWELS  CONWnN  SURRA?  109 

NWAVE(JBANO)  SUPRA?  IPO 

-  NUMBER  OF  WAVENUMBERS  AT  WHICH  THE  UPWELLING  SURRAD  UP 

SPECTRAL  RADIANCE  I S  TO  BE  COMPUTED  FOR  SURRA?  Ill 

BROAP-BANP  LOOP-INDEX  JBANP  SURRA?  11? 

IDAYV  -  INDEX  FOR  DAYLIGHT  CONDITION  AT  SUB-V-POINT  SURRA?  113 

-  0  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES  SURRA?  114 

-  I  IF  50LAR  ZENITH  ANGLE  . LE .  90  DEGREES  SUPRA?  IIS 


2Hb 
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I  KM  -  INOFX  FOR  NUMBER  OF  ALTITUDES  AT  WHICH  SURRAD  116 

CALCULATIONS  ARE  MARE  WHEN  CLOUDS  ARE  INCLUDED.  SURRAD  II? 

(SET  IN  SUBROUTINE  UPWFIL]  SURRAD  118 

XYZCOM  COtMDN  SURRAD  11 8 

NS  -  NUMBER  OF  BOUNDARY  ALTITUDES  USED  IN  SURRAD  170 

SUBROUTINE  SHELLS  SURRAD  1?1 

DATA  STATEMENT  SURRAD  17? 

NSPECS  -  NUMBER  OF  SPECIES  IN  W1LECULAR  TRANSMITTANCE  SURRAD  173 

MODEL  SURRAD  174 

NTEMP  -  NUMBER  OF  TEMPERATURE  BINS  IN  MOLECULAR  SURRAD  1?5 

TRANSMITTANCE  MODEL  SURRAD  l?fi 

SURRAD  177 

OUTPUT  PARAMETERS  SURRAD  178 

ARGUMENT  LIST  SURRAD  129 

RAD (11  -  RADIANCE  EMITTED  FROM  POINT  P  TOWARD  DETECTOR,  SURRAD  130 

WATTS /(CM**?  SR  CM- 11  SURRAD  131 

RAD (21  -  RADIANCE  OF  SOLAR  REFLECTED  RADIATION  (WITH  SURRAD  13? 

INCOMING  RAY  UNATTENUATED),  W/tCM**?  SR  CM- 1 )  SURRAD  133 

RAD(L*?1,  L  =  1 ,  IF  IRES  (NOT  USED  WITH  SUBROUTINE  IIPWELL)  SURRAD  134 

-  RADIANCE  OF  FIREBALL-L  RADIATION  REFLECTED  SURRAD  135 

TOWARD  DETECTOR  (WITH  INCOMING  RAY  UNATTEN-  SURRAD  135 

UATED) ,  WATTS/ (CM**?  SR  CM- 1 1  SURRAD  137 

UPS(I.N.l)  -  AREAL  DENSITY  FOR  TEMPERATURE  I  AND  SPECIES  SURRAD  138 

n  along  incoming  solar  path  to  point  on  surrad  139 

EARTH'S  SURFACE,  CM  AT  STP  SURRAD  140 

(COMPUTED  ONLY  FOR  LUP=1 )  SURRAD  141 

UPSU.N.L+l),  L=1 ,  IF  IRES  (NOT  USED  IN  N9R  MODULE)  SURRAD  14? 

-  AREAL  DENSITY  FOR  TEMPERATURE  I  AND  SPECIES  N  SURRAD  143 

■-LONG  PATH  FROM  F1RFBALL-L  TO  POINT  P  ON  SURRAD  144 

EARTH’S  SURFACE,  CM  AT  $TP  SURRAD  145 

(COMPUTED  ONL>  FDR  LUP=U  SURRAD  1 46 

UPPS(I,N,1)  -  PATH  PARAMETER  UP  (PRODUCT  OF  U  AND  SURRAD  147 

PRESSURE  P)  FOR  TEMPERATURE  1  AND  SPECIES  SURRAD  148 

N  ALONG  INCOMING  SOLAR  PATH  TO  POINT  P  ON  SURRAD  149 

EARTH'S  SURFACE,  ATM-CM  AT  STP  SURRAD  150 

(COMPUTED  ONLY  FOR  LUP=1)  SURRAD  151 

IIPPS(  I  ,N,L*1 1 ,  L  =1,  IF  IRES  (NO!  USED  IN  NBR  MODULE  1  SURRAD  15? 

-  PATH  PARAMETER  UP  (PRODUCT  OF  U  AND  PRESSURE  P)  SURRAD  153 

FOR  TEMPERATURE  1  AND  SPECIES  N  ALONG  PATH  FRO“  SURRAD  154 

FIREBALL-L  TO  POINT  P  ON  EARTH'S  SURFACE,  SURRAD  155 

ATM-CM  AT  5TP  SLJPRAD  156 

(COMPUTED  ONLY  FOR  LUP=11  SURRAD  157 

UCS!  I ,N) ,  -  SIMILAR  TO  UPSU.N.li  AND  UPPS(  I  ,N,1 )  SURRAD  IBP 

UPCS(I.N)  EXCEPT  POINT  P  IS  REPLACED  BY  POINT  C.  SURRAD  159 

AIRSOL  COWCN  SURRAD  160 

TASPfLUPl  LUP=:,NWAVE{ JBANDi  SURRAD  161 

-  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  PAY  TO  SURRAD  16? 

POINT  P  ON  GROUND.  SURRAD  153 

TASC(LUP)  LUP=1,NWAVE(JBAND5  SURRAD  164 

-  AEROSOL  TRANSMITTANCE  FOR  INCOMING  S™  »°  p»»  ™  S"RRAn  '6R 

POINT  C  AT  1?-KM  ALTITUDE.  SURRAD  166 

TAFP(L'  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  RAY  FROM  SURRAD  !67 

FIREBALL-L  TO  POINT  P  ON  GROUND  SURRAD  16c 

50LARP  CO"WON  SURRAD  16R 

SOLIRR(K)  K=1,NW«VE( JBAND)  SURRAD  170 

-  SOLAR  SPECTRAL  IRRAPI ANCE  AT  THE  TOP  OF  THE  SURRAD  171 

EARTH'S  ATMOSPHERE  AT  WAYENUMBER-INDEX  K  SURRAD  17? 
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c 

ccc 


cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 

cc 


DIMENSION 
COWON /AIR  SOI/ 
COWON/FIRBAL/ 
cowon/positn/ 

s 

COWON/SATELL/ 
CO  WON /SOL  ARP/ 
COWON/SOURCE/ 
COWON/TECTOR/ 


MATTS  /  (  CM**2  CK-1  ) 

DIMENSION  RF( 3 ) ,RP(3),RC(3) ,RS( 3) ,PLNCK ( 10) 

DIMENSION  D0(7),RAD(1?),UPS{ 10,10, 11), UPPS (10, 10,11), 

S  UCS(10,10)  .UPCS(IO.IO) 

DS(100),XFRACS(100),INDX(100) 

TASP( 10),TASC( 10) ,TAFP  1 10) 

FBLAT(IO) , FELON ( 10) ,FBALT( 10) ,FBRINT( 10) 

POSLAT ,  POSLON ,  POSALT ,  SPCLAT ,  SPCLON 
,C12LAT,C12LONtCi2ALT 
SATL AT , SATLON , SATAL  T , SATZE  N . SAT AZ I 
SOLLAT.SOUON.SOLIRRflO) 

SRCLAT,SRCL0N,SRCALT,SRCFIG,SRCZEN(11),$RC3R(11) 
DETLAT,D£TLON,DETALT,DETZEN .DETAZI ( 11 ) 
COMMON/UPHELS/  OPWALT,UPWLON,UPWlAT,NALT( 5) ,ZKM( 13, 5) .NNADIR .NAZI , 

*  NWAVE<5),lDAYV,CLDFLG,UPRADNtl3,10,5).WV(10,5),IKM, 

*  NBANDS 
C0MM0N/UPWELS1/ 

2  R010(6,10),R010A(6,10.10),R010N(6,10), 

3  R025(6,10) ,RO?5A(6,10,10) .R025N (5,10), 

4  R050( 6 , 10 ) , R  050A( 6, 10, 10), R  050N (6,10), 

5  R090(6,10),R050A(6,10,10),R090N(6,10), 

6  R100(6,10).R100A(6,10,10),R100N(6,10) 

7  ,ARCVA(6, 10,10), ARCVN[6, 10) 
COMMON/UPHELS?/  J8AND1 

C0W0N/UPHELS3/  UPRAD(6,10)  ,UPRADA(  13,10,10) 

COWON/  XYZCOM/  ITMTE,LTMTE,NS,HSHELL(81),TPX(81,12), 

1  U(10,10,2) ,UP( 10, 10,2) .NMOLS, FACT 

LOGICAL  FIRST. SPCULR.ESURF1 
DATA  RSUN  /  1.495979E+08  / 

DATA  N SPECS, NTEMP  /  10,10  / 

SUBROUTINE  SURRAD  IS  CALLED  FROM  SUBROUTINE  UPWELL  FOR  ALL 
VALUES  OF  I.O.K.L-  HOWEVER. 'SWITCHES  ELIMINATE  REOUNDANT 
CALCULATIONS.  FOR  EXAMPLE, 

*  CALL  TO  FUNCTION  PLANCK  DEPENDS  ONLY  ON  L. 

*  CALL  TO  SUBROUTINE  SOLRAD  DEPENDS  ONLY  ON  L. 

*  PATH  PARAMETERS  FOR  PATH  FROM  PO!NT  P  TO  SUN  ARE 
INDEPENDENT  OF  L  AND  ARE  ASSUMED  (TO  A  GOOD  APPROXIMATION) 
TO  BE  INDEPENDENT  OF  I,J,K. 

LIKEWISE  FOR  POINT  C,  EXCEPT  THAT  ITS  ALTITUDE  IS  NOT  0.0 
BUT  12  KM. 

*  AEROSOL  TRANSMITTANCE  FROM  POINT  P  TO  SUN  DEPENDS  ONLY  ON  L 
AND  THE  (ASSUMED)  SINGLE  PATH. 

*  AEROSOL  TRANSMITTANCE  FROM  POINT  C  TO  SUN  DEPEND5  ONLY  ON  L 
AND  THE  (ASSUMED)  SINGLE  PATH. 

IF(  LUP.GT.l  )  GO  TO  5 

DETERMINE  WHETHER  DETECTOR  IS  IN  SATELLITE  SPECIFIED  IN 
SATELL  CONMOX.  IDETEC-2  WHEN  SUBROUTINE  UPWELL  CALLS 
SUBROUTINE  SURRAD. 

IF (  IDETEC.EQ.2  )  GO  TO  1 

DETECTOR  IS  AT  SATELLITE,  SO  RESET  DETECTOR  LOCATION. 

OETLAT  -  SATLAT 
OECLON  =  SATLON 


SURD AD 

173 

SURRAD 

174 

SURRAD 

175 

SURRAD 

176 

SURRAD 

177 

SURRAD 

178 

AIRSOL 

2 

FIRBAL 

2 

POSITN 

2 

POSITN 

3 

SATELL 

2 

SOLARP 

2 

SOURCE 

2 

TECTOR 

2 

UPWELS 

2 

UPWELS 

3 

UPWELS 

4 

UPWELS 

5 

UPWELS 

6 

UPWELS 

7 

UPWELS 

8 

UPWELS 

9 

UPWELS 

10 

UPWELS 

1! 

XYZCOM 

2 

XYZCOM 

3 

XYZCOM 

4 

XYZCOM 

5 

SURRAD 

188 

SURRAD 

189 

SURRAD 

190 

SURRAD 

191 

SURRAD 

19? 

SURRAD 

193 

SURRAD 

194 

SURRAD 

195 

SURRAD 

196 

SURRAD 

197 

SURRAD 

198 

SURRAD 

199 

SURRAD 

200 

SURRAD 

201 

SURRAD 

202 

SURRAD 

20T 

SURRAD 

204 

SURRAD 

205 

SURRAD 

206 

SURRAD 

207 

SURRAD 

20B 

SURRAD 

209 

SURRAD 

210 

SURRAD 

211 

SURRAD 

21? 

SURRAD 

213 

SURRAD 

214 

SURRAD 

215 

SURRAD 

216 

288 


DETALT  =  SATALT 

SURRAD 

21? 

cc 

FIRST.  CONSIDER  ONLY  THE  SUN  AS  A  SOURCt  AND  ALSO  SET  DETECTOR 

SURRAD 

218 

cc 

ZENITH  AND  (IF  MSM.GT.2  AND  IDAY-1)  AZIMUTH  ANSLES  FOR  SUN 

SURRAD 

219 

cc 

AS  SOURCE 

SURRAD 

220 

cc 

S'JRRAD 

221 

1  CALL  RINOUT(MSM,  0  ,IOAY) 

SURRAD 

222 

cc 

SURRAD 

223 

cc 

NOW  HAVE  I OAT  AT  POINT  P.  OETZEN,  (IF  IDAY-1)  SRCZEN(l),  AND 

SURRAD 

224 

cc 

(IF  IDAY-1  AND  MSM.ST.2)  DETA2I{1). 

SURRAD 

225 

cc 

SURRAD 

226 

cc 

THE  COMPLICATIONS  RESULTING  FROM  THE  SOLAR  TERMINATOR  BEING 

SURRAD 

227 

cc 

VISIBLE  FROM  POINT  V  ARE  HOT  HANDLED  IN  A  COMPLETELY 

SURRAD 

228 

cc 

CONSISTENT  HAY.  IF  SUBPOINT  V*  IS  IN  DAYLIGHT  (IDAYV-1),  THE 

SURRAD 

229 

cc 

DIURNAL  CONDITION  AT  EACH  POINT  P  (AS  INDICATED  BY  INDEX  1DAY) 

SURRAD 

230 

cc 

IS  RECOGNIZED,  BUT  IF  SUBPOINT  V  IS  IN  DARKNESS  (IDAYV-O), 

SURRAD 

231 

cc 

THEN  DARKNESS  IS  IMPOSED  ON  ALL  POINTS  P  BY  SETTING  IDAY=0. 

SURRAD 

232 

cc 

SURRAD 

233 

IF( 

IOAYV.EQ.O  )  IDAY  -  0 

SURRAD 

234 

cc 

SURRAD 

235 

cc 

IFIRES-0  WHEN  SUBROUTINE  UPWELL  CALLS  SUBROUTINE  SURRAD. 

SURRAD 

23e 

IF 

IF IRES.CT.O  )  CALL  R!NOUT(MSM, IF  IRES. IDAY) 

SURRAD 

237 

cc 

NOW  HAVE  ZENITH  ANGLES  SRCZEN(L+1)  AND  SLANT  RANGES  $RCSR(L+1) 

SURRAD 

238 

cc 

OF  FIREBALL-L  (L=1.IFIRES)  AND  DETECTOR  AZIMJTHS  DETAZ1  (L*l) . 

SURRAD 

239 

cc 

SURRAD 

240 

cc 

SET  PARAMETERS  TO  CALL  ESURF  FOR  SUN  AS  SOURCE. 

SURRAD 

241 

THI 

-  -1.0 

SURRAD 

242 

PS  I 

-  -1.0 

SURRAD 

243 

IF  ( 

IDAY.EQ.l  )  THI  »  SRCZEN(l) 

SURRAD 

244 

IF  ( 

( IDAY.EQ.l)  .AND.  (MSM.ST.2)  )  PSI  •  DETAZI(l) 

SURRAD 

24$ 

THR 

-  DETZEN 

SURRAO 

246 

HHH 

-  POSALT 

SURRAD 

247 

5  CONTINUE 

SURRAD 

248 

cc 

CALL  ESURF  WITH  ESURF1  SET  TO  .TRUE.  SINCE  HE  HANT  ALL  THREE 

SURRAD 

249 

cc 

OUTPUTS  ( SFR,  EPSD.  TKS).  NOTE  THAT  EVERY  CALL  TO  ESURF  FROM 

SURRAD 

250 

cc 

SURRAD  (HITHIN  NBR  MODULE)  QUALIFIES  AS  A  FIRST  CALL. 

SURRAD 

251 

ESURF1  -  .TRUE. 

SURRAD 

252 

CALL  ESURF  (THI, THR.PSI.HHH.MSM.DD.SmiLR.ZLAM,  IDAY.  IFIRES.ESURF1, 

SURRAD 

253 

i  SFR, EPSD. TKS) 

SURRAD 

254 

cc 

SURRAD 

255 

cc 

BYPASS  PRINT  OF  [PSD  ANO  TKS  UNLESS  INDICES  I.  0,  K.  AND  L  IN 

SURRAD 

256 

cc 

SUBROUTINE  Uf HELL  (KNOWN  HERE  AS  IUP,  JUP.  KUP,  ANO  LUP)  HAVE 

SURRAD 

257 

cc 

VALUES  OF  UNITY.  HOWEVER.  HE  AND  THE  CODE  RECOGNIZE  THE  FACT 

SURRAD 

258 

cc 

THAT  WHEREAS  TXS  DEPENDS  ONLY  ON  THE  SURFACE  ALTITUDE.  EPSD 

SURRAD 

259 

cc 

DEPENDS  ON  ANGLE  AND  WAVELENGTH. 

SURRAD 

26D 

cc 

SURRAD 

261 

I JK 

*  IUP  ♦  JUP  +  KUP 

SURRAD 

262 

UAL  »  I  JK  ♦  LUP 

SURRAD 

263 

cc 

HE  AVOIO  USING  THE  QUANTITY  ( IKM+JUP+KUP+LUP)  BECAUSE  THE 

SURRAD 

264 

cc 

MINIMUM  VALUE  OF  IKM  IS  0.  THEREFORE,  WE  USE... 

SURRAD 

265 

JK 

-  JUP  +  KUP 

SURRAD 

266 

JKL 

*  JK  •*  LUP 

SURRAD 

267 

IF( 

I JKL  .EQ.  4  )  HR  ITE( 6 , 111 )  EPSD. TKS 

SURRAD 

268 

111  F0RHAT(1H0,1X  *  tPSD,  TXS  -  *,  1P2EH.6  *  (FROM  SUBROUTINE  SURRAD  SURRAD 

269 

t.  FORMAT  111}*) 

SURRAD 

270 

CC 

SURRAD 

271 

CC 

NOW  HAVE  EPSD,  TKS,  AND  (IF  IDAY-1)  SFR. 

SURRAD 

27? 

cc 

ALSO,  IF  IDAY-l,  MSM-2,  AND  SPCULR-.TRUE.,  WE  HAVE  (TWOUGH 

SURRAD 

273 

289 


cc 

P0S1TN  COMMON)  THE  COORDINATES  ' SPCLAT.SPCLON)  OF  THE  SOLAR 

SURRAD 

274 

cc 

SPECULAR  REFLECTION  POIN'  ON  A  SMOOTH  HORIZONTAL  WATER  SURFACE 

SURRAD 

275 

cc 

COMPUTED  IN  PLITTR.  TO  FACITATE  PRESE»VNG  THESE  COORDINATES, 

SURRAD 

276 

cc 

DEFINE  NEW  VARIABLES. 

SURRAD 

277 

cc 

SURRAD 

278 

S  SPLAT  =  SPCLAT 

SURRAD 

279 

SSPLON  =  SPCLON 

SURRAD 

230 

cc 

IF  THESE  COORDINATES  PROVE  TO  BE  OF  INTERE'":,  ADD  ITIQNAL 

SURRAD 

281 

cc 

PRESERVING  VARIABLES  WILL  BE  NEEDED  AS  SUBROUTINE  L?WELL 

njRR  AD 

282 

cc 

LOOPS  OVER  ALTITUDES. 

SURRAD 

283 

cc 

SURRAD 

284 

cc 

BYPASS  CALL  TO  FUNCTION  PLANCK  UNLESS  INDICES  I.J.  AND  K  IN 

SURRAD 

285 

cc 

SUBROUTINE  UPWEIL  (KNOWN  HERE  AS  IUP.JUP,  AND  KUP)  HAVE 

SURRAD 

286 

cc 

VALUFS  OF  UNITY. 

SURRAD 

287 

IF (  IJK.GT.3  )  GO  TO  10 

SURRAD 

288 

W  =  1.0E+04/ZLAN 

SURRAD 

289 

PLNCK(LUP)  *  PLANCK (TKS.W) 

SURRAD 

290 

10 

CONTINUE 

SURRAD 

291 

RAO(l)  «  EPSD  *  PLNCK(LUP) 

SURRAD 

29? 

cc 

NOW  HAVE  EMITTED  SPECTRAL  RADIANCE,  RAD(l). 

SURRAD 

293 

cc 

SURRAD 

294 

RAO( 2)  =  0.0 

SURRAD 

295 

IF (  IDAYV  .EQ.  O';  GO  TO  50 

SURRAD 

296 

cc 

SURRAD 

297 

cc 

ASSUME  PATH  PARAMETERS  FROM  POINT  P  TO  THE  SUN  ARE  EFFECTIVELY 

SURRAD 

298 

cr 

INDEPENDENT  OF  THE  POINT  P  LOCATION  ON  THE  SURFACE.  THUS, 

SURRAD 

299 

cc 

BYPASS  ZEROING  PATH  PARAMETERS  HERE,  AND  THEIR  COMPUTATION 

SURRAD 

300 

cc 

LATER.  UNLESS  IUP= JUP’KUP=LUP=t . 

SURRAD 

301 

IF (  IJKL.GT.4  )  GO  TO  21 

SURRAD 

302 

DO  20  N=1,NSPECS 

SURRAD 

303 

DO  20  I=1,NTEMP 

SURRAD 

304 

U  PS(I.N.I)  ■=  0.0 

SURRAD 

305 

UPPS(I,N,1)  -  0.0 

SURRAD 

306 

20  CONTINUE 

SURRAD 

307 

21 

CONTINUE 

jURRAD 

308 

cc 

S'JRRAD 

309 

cc 

ALSO  ASSUME  PATH  PARAMETERS  FROM  POINT  C  TO  THE  SUN  ARE 

SURRAD 

310 

cc 

EFFECTIVELY  INDEPENDENT  OF  THE  P01NT-C  LOCATION  ON  THE  I2-KM 

SURRAD 

311 

cc 

ALTITUDE  SURFACE.  THUS  BYPASS  ZEROING  PATH  PARAMETERS  HERE, 

SURRAD 

312 

cc 

AND  THEIR  COMPUTATION  LATER,  UNLESS  IKM*JUP=KUP  =  L<JP  =  1  . 

SURRAD 

313 

IF (  (  I KM  .NE.  1  }  .OR.  (  UKL  .GT.  3)1  GO  TO  23 

SURRAD 

314 

DO  22  N=1 .NSPECS 

SURRAD 

315 

00  22  I =1 ,NTEMP 

SURRAD 

316 

U  CS(I,N)  *  O.C 

SURRAD 

317 

UPCSd.N)  =  0.0 

SURRAD 

318 

22 

CONTINUE 

SURRAD 

319 

23 

CONTINUE 

SURRAD 

320 

cc 

SURRAD 

321 

cc 

IF  SUN  IS  PRESENT,  GET  THE  SOLAR  SPECTRAL  1RRADIANCE 

SURRAD 

322 

cc 

E  (W/IC“«2  CM- 13)  AT  THE  TOP  OF  THE  ATMOSPHERE. 

SURRAD 

323 

cc 

BYPASS  CALL  TO  SUBROUTINE  SOLRAD  UNLESS  IUP-JUP*KUP=1 . 

SURRAD 

324 

IF (  1JK.GT.3  )  GO  TO  23 

SURRAD 

325 

CALL  SOLRAOt 3,W, E\ 

SURRAD 

326 

SOLIRR(LUP)  *  E 

SURRAD 

3?t 

NWAVE  J  ■=  NWAVE(  JBAND1 ) 

S'JRRAD 

32B 

IF (  LUP  ,E0.  NWAVEJ  )  WRITE(6,125)  ( SOI  IRR !l» ) ,LP*1 , NWAVE jl 

SURRAD 

329 

125  FORMAT  dHO,28X,77H*  *  *  SOLAR  SPECTRAL  IRRADi  ANCE  SOllRR'll,  (L  =  l 

SURRAD 

330 

290 


J.NWAVEJl,  W/!CM**2  CK-1)  *  *  */48X,*(FROM  SUBROUTINE  SURRAD,  FDR HA 

SURRAD 

33! 

ST  l?5)*/2X,irflOE12.41) 

SURRAO 

33? 

25  CONTINUE 

SURRAD 

333 

cc 

SURRAD 

334 

cc 

COMPUTE  SPECTRAL  RAD'ANCE  OF  IUNATTFNUATEO)  DIRECT  SOLAR 

SURRAO 

335 

cc 

RADIATION  REFLECTED  FRQM  EARTH  SURFACE  AT  POINT  P  TOWARDS 

SURRAD 

336 

cc 

POINT  V. 

SURRAD 

33? 

RAD{2)  =  SFR  *  SOLIRR (LUP)  *  CCS'TH!) 

SURRAD 

33S 

cc 

SURRAD 

379 

IF (  I JKL  .GT.  4  )  GO  TO  2? 

SURRAD 

340 

cc 

SURRAD 

3«1 

cc 

PREPARE  TO  GET  PATH  PARAMETERS  FOR  PATH  FROM  POINT  P  TO  SUN, 

SURRAD 

JA? 

cc 

WICH  CARRIES  THROUGH  TO  STATEMENT  LABEL  41. 

SURPAD 

34  3 

cc 

SURRAD 

344 

re 

OBTAIN  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  POINT  P. 

SURRAD 

345 

CALL  GEOXYZIPOSALT.PCSLAT ,®OSLON,RP(  1),RP(?),RP(31) 

SURRAD 

346 

CALL  VI IN( R p,1 .OE+OS.RP, 0.0,0.01 

SURRAD 

347 

cc 

SURRAO 

34= 

cc 

NEED  TO  DETERMINE  LOCATION  OF  SUN. 

SURRAD 

349 

CALL  GEOXYZ'RSUN,SOlLAT,SOLlON,RS(l),RS(2),R$(3)) 

SURRAD 

3S0 

CALL  VLIN'RS,1.0E*05,RS,0. 0,0.0) 

SURRAD 

351 

cc 

HAVE  NOW  DETERMINED  RP  AND  RS. 

SURRAD 

35? 

cc 

SURRAD 

353 

cc 

INITIALIZE  NC  SO  THAT  DS(l)  WILL  BE  SET  TO  0.0  IN  SUBROUTINE 

SURRAD 

35  A 

cc 

STEP. 

SURRAD 

355 

NC  -  0 

SURRAD 

355 

CALL  STEPS!  RP.RS.NC, OS. XFRACS, INDX  1 

SURRAD 

357 

cc 

NOW  HAVE  NC,  OS,  XFRACS,  AND  INDX  FOR  PATH  FROM  S  TO  P. 

SURRAD 

365 

cc 

SURRAD 

359 

cc 

INITIALIZE  LOGICAL  VARIABLE,  FIRST,  IN  PREPARATION  FOR  FIRST 

SURRAD 

360 

cc 

CALL  TO  SUBROUTINE  PATH. 

SURRAD 

36! 

FIRST  =  .TRUE. 

SURRAD 

362 

22  CONTINUE 

5URPAD 

363 

cc 

SURRAD 

IF (  IJX  .GT.  3  )  GO  TO  31 

SURRAD 

jc5 

cc 

BEFORE  STARTING  00-30  LOOP,  OBTAIN  THE  AEROSOL  EXTINCTION 

SURRAO 

366 

cc 

COEFFICIENT  AT  THE  INITIAL  ENDPOINT  OF  THE  PATH. 

SURRAD 

36? 

TASP(LUP)  «  1.0 

SURRAD 

365 

LI  =  INDX(1 )  S  12  =  INDX( 2) 

SURRAD 

369 

H5P  =  XFRACS(l)  *  HSHELULl)  *  (l.-XFRACStlll  *  H$HtlL(L2) 

SURRAD 

370 

CALL  AEROSOL  (  HSP, ZLAM.XKSCT.XKABS.GBAR  ) 

SURRAD 

371 

XXEXTP  =  XKSCT  ♦  XKABS 

SURRAD 

37? 

DO  30  J=1 ,NC 

SURRAD 

373 

cc 

ON  THE  PASS  FOR  WHICH  J=NC,  DSINC+I)  WILL  BE  -1.0,  INDICATING 

SURRAD 

374 

cc 

THAT  THE  LAST  SEGMENT  HAS  BEEN  PROCESSED.  (THE  LOOP  COULD 

SURRAD 

3  75 

cc 

HAVE  BEEN  FROM  JO  TO  J=NC-1  AND  THE  FOLLOWING  TEST 

SURRAD 

376 

cc 

ELIMINATED.) 

SURRAD 

377 

IFf  OS(J+I).LT.O.O  )  GO  TO  30 

SURRAD 

37? 

IF (  1JKL  .EQ.  «  )  CALL  PATH'  F IRST, INDX { J)  ,D5{  J+l ) .XFRACSf  J)  ) 

SURRAD 

379 

11  -  INDX  (  J  )  $  L2  *  INDX !  J  +  l  1 

SURPAD 

HSO  *  XFRACS!  J+l )  *  HSHELUL2)  +  ( 1 . -XFRACS!  J+l) )  *  HSHELL(Ll) 

SURRAD 

391 

CALL  AEROSOL  (  HSQ.ZLAM, XKSCT, XKABS, GBAR  1 

SURRAD 

39? 

XKFXTQ  *  XKSCT  ♦  XKABS 

SURRAD 

393 

XKEXT  =  ACC!*!  2,C..,DS(J+1!,XXEXTP,XKEXTO,0.,OS!J+H  )  /  OS' >11 

S'lRRAD 

3P4 

TASP(LUP)  =  TASP(LUP)  *  EXP(  -XKEXT+DS' J+l )  ) 

SURRAD 

39.5 

XKEXTP  *  XKEXTQ 

SURRAD 

3^ 

30  CONTINUE 

SURRAO 

?E' 

2<H 


r 

■ 

.  *■ 

31  CONTINUE 

SURRAD 

388 

cc 

NOW  HAVE  PATH  PARAXTERS  U  AND  UP  FOR  SOLAR  RAX  TO  POINT  P. 

SURRAD 

389 

cc 

SINCE  THESE  PATH  PARAMETERS  ARE  INDEPENDENT  OF  WAVELENGTH, 

SURRAD 

390 

cc 

THEY  NEED  BE  COXUTED  ONLY  ONCE. 

SURRAD 

391 

cc 

ALSO  HAVE  AEROSOL  TRANSMITTANCE,  TASP(LUP),  EOR  SOLAR  RAY  TO 

SL*RAD 

392 

cc 

POINT  P,  WHICH  IS  WAVELENGTH  DEPENDENT. 

S1RRAD 

393 

IF (  IJXL  .GT.  4  )  SO  TO  41 

SURRAD 

394 

cc 

REDEFINE  VARIABLES. 

SURRAD 

395 

DO  40  N-l.NSPECS 

SURRAD 

396 

' 

DO  40  I-l.NTEX 

SURRAD 

397 

U  PS! J,N,1)  ■  U  (I,N,2) 

SURRAD 

393 

UPPS(l.N.l)  -  UP(!,N,2) 

SURRAD 

399 

40  CONTINUE 

SURRAD 

400 

WRITE(6,140) 

SURRAD 

401 

140  FORMAT  (1H0.44X.43H+  *  •  PATH  PARAMETERS,  POINT  P  TO  SUN  *  *  */4«X 

SURRAD 

402 

J,*(FROM  SUBROUTINE  SURRAD,  FORMATS  140, 142)«/2X , *TENPERATURE/SPECI 

SURRAD 

403 

SES.  ( (UPS(M,N,1  ),N=1,NSPECS) ,N«1 ,2) *) 

SURRAD 

40a 

WRITE16.141)  ( (M v  (U  PS(M,N, 1 ) ,N=1 .NSPECS) ) .M-l , 2) 

SURRAD 

405 

141  FORMAT  (2X.I3.1P10E12.4) 

SURRAD 

406 

WRITE (6, 142) 

SURRAD 

407 

142  FORMAT  (1H0.1X,*TEMP£RATURE/ SPECIES.  ( (UPPS(M,N ,1 ) ,N=1,NSPECS) ,M=1 

SURRAD 

408 

1,2)*) 

SURRAD 

409 

WIT£(6,141)  ((M.  (UPPS(M.N,1).N-1.NSPECS)),M=1,2) 

SURRAD 

410 

41  CONTINUE 

SURRAD 

411 

CC 

SURRAD 

412 

CC 

SURRAD 

413 

CC 

PARAMETERS  FOR  PATH  FROM  S  TO  C  NEED  BE  DONE  ONLY  ONCE. 

SURRAD 

414 

. 

IF (  (  I  KM  , NE.  1  )  .OR.  '  JK  .GT.  2  )  )  GO  TO  50 

SURRAD 

415 

IF (  LUP  .GT.  1  )  GO  TO  42 

SURRAD 

416 

CC 

SURRAD 

417 

cc 

PREPARE  TO  GET  PATH  PARAMETERS  FOR  PATH  FROM  POINT  C  TO  SUN. 

SURRAD 

418 

. 

cc 

SURRAD 

419 

cc 

OBTAIN  EARTH-CENTEREO  CARTESIAN  COORDINATES  OE  POINT  C. 

SURRAD 

420 

CALL  GEOXYZ(C12ALT,C12LAT,C12LON,RC(l' ,RC(2) ,RC( 3)) 

SURRAD 

421 

CALL  VLIN(RC,l.OE+O5.RC,0. 0,0.0] 

SURRAD 

422 

. 

cc 

SURRAD 

423 

NC  *  0 

SURRAD 

424 

CALL  STEPS!  RC.RS.NC.DS.XFRACS.IMPX  ) 

SURRAD 

«?5 

cc 

MOW  HAVE  NC.  DS,  XERACS.  AND  IN9X  FOR  PATH  FROM  S  TO  C. 

SURRAD 

426 

i  , 

FIRST  -  .TRUE. 

SURRAD 

427 

42  CONTINUE 

SURRAD 

428 

. 

cc 

SURRAD 

429 

TASC(LUP)  »  1.0 

SURRAD 

430 

LI  -  INDX(l)  S  L2  *  1NDX(2) 

SURRAD 

431 

HSP  •  XFRACS(l)  *  HSHELL(Ll)  ♦  ( 1 . -XFRACSU ) )  *  HSHEIL(L2) 

SURRAD 

43? 

! 

CALL  AEROSOL  (  HSP.ZLAM.XKSCT.XKABS.GBAP  ) 

SURRAD 

433 

XKEXTP  -  XKSCT  ♦  XKABS 

SURRAD 

434 

DO  44  J-l.NC 

SURRAD 

435 

IF(  DS( J+l )  .LT.  0.0  )  GO  TO  44 

SURRAD 

436 

IE (  LUP  .EQ.  1  )  CALL  PATH(  FIRST, 1NDX( J) ,DS( J+l ) ,XFRACS( J)  ) 

SURRAD 

437 

LI  *  INOX(  J  )  1  12  *  IN0X(J+1) 

SURRAD 

438 

HSO  *  XFRAC$(J+1)  *  H5HELLCL2)  ♦  ( 1 . -XFRACSt  J+l ) )  *  HSHELL(Ll) 

SURRAO 

439 

CA.L  AEROSOL  (  H SQ, ZLAM, XKSCT ,XKA3S, 68 AR  ) 

SURRAD 

440 

XKEXTQ  -  XKSCT  +  XKABS 

SURRAD 

441 

XKEXT  •  ACCUM(  2,0.  ,DS(  J+l )  .XKEXTP.XKEXTQ.O.  ,JS(0+1)  )  !  OHJ+l) 

SURRAO 

44? 

TASC(LUP)  *  TASC(LUP)  *  EXP(  -XXEXT*DS( J+l )  ) 

SURRAD 

443 

4 

'  \ 

I 

■ 

1 

XKEXTP  *  XKEXTQ 

SURRAO 

444 

'  '  t 

. 

• 

292 
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44 

continue 

SURRAD 

445 

cc 

NOW  HAVE  PATH  PARAMETERS  U  AND  UP  FOR  SOLAR  RAY  TC  POINT  C. 

SURRAD 

445 

cc 

SINCE  THESE  PATH  PARAMETERS  ARE  INDEPENDENT  OF  WAVELENGTH, 

SlAiRAD 

44? 

cc 

they  need  BE  CCWUTEO  ONLY  ONCE. 

SURRAD 

448 

cc 

ALSO  HAVE  A£RO.».L  TRANSMITTANCE,  TASC(LUP),  FOR  SOLAR  RAY  TO 

SURRAD 

449 

cc 

POINT  C,  WHICH  IS  WAVELENGTH  DEPENDENT. 

SL“RAD 

450 

1F(  LUP  .GT.  1  )  GO  TO  SO 

SURRAD 

451 

cc 

REDEFINE  VARIABLES. 

SURRAD 

45? 

00  46  N*1 .NSPECS 

SURRAD 

453 

DO  46  I-l.NTEMP 

SURRAD 

454 

U  CS'I.N)  ■  (1.N.2) 

SURRAD 

455 

UPCSU.NJ  *  UP ( 1 ,  N ,  2 ) 

SURRAD 

456 

46 

CONTINUE 

SURRAD 

457 

WR1TE(6,146) 

SURRAD 

4  58 

146 

FORMAT  (1H0.44X.43H*  *  *  PA^  PARAMETERS,  POINT  C  TO  SUN  *  *  */46X 

SURRAD 

459 

S,*(FROM  SUBROUTINE  SURRAD,  FORMATS  146, 148)»/2X *TEMPERATURF/SPEC1 

SURRAD 

460 

ICS.  ( ( UC5{ I ,N),N=1,NSPECS) , 1*1 ,2)*) 

SURRAD 

461 

WR1TE(6,141j  ((I,  (U  CS(I,N}.N=l,NSPECS!),I=1.2) 

SURRAD 

462 

WR1TE(6,14B) 

SURRAD 

463 

148 

FORMAT  (1H0,1X.*TEMPERATURE/SPEC1ES.  ( (UPCS( I ,N) ,N=1 .NSPECS) ,1=1,2 

SURRAD 

464 

S)‘) 

SURRAD 

465 

WITE(6,14!)  ((1,  (UPCS{  1  ,N)  ,N*1 .NSPECS) ) .  1*1 ,2) 

SURRAD 

466 

so 

CONTINUE 

SURRAD 

467 

cc 

SURRAD 

468 

cc 

THE  REMAINING  PORTION  OF  THIS  SUBROUTINE.  MOT  TO  BE  USED  WITH 

SURRAD 

46° 

cc 

SUBROUTINE  upwell,  is  avoided  by  calling  SUBROUTINE  SURRAD 

SURRAD 

470 

cc 

with  ifires*o  . 

SURRAD 

471 

cc 

SURRAD 

472 

IF (  IFIRES.EG.O  )  RETURN 

SURRAD 

473 

cc 

SURRAD 

474 

cc- 

SURRAD 

475 

cc 

NOW  CONSIDER  THE  FIREBALLS  AS  SOURCES. 

SURRAD 

476 

cc 

NOTE  THAT  THE  NATURAL  CLOUD  MODULE  IS  NOT  INVOLVED  WITH  THE 

SURRAD 

477 

cc 

REMAINING  PORTION  OF  THIS  ROUTINE. 

SURRAD 

478 

cc 

SURRAD 

479 

cc 

ASSuKZ  THAT  LUP  (IN  ARGUMENT  LIST)  ALSO  SERVES  AS  A  WAVElFNGTH  SURRAD 

480 

cc 

INDEX. 

SURRAD 

481 

DO  99  L-l.IFIRES 

SURRAD 

482 

cc 

GET  THE  (UNATTENUATED)  IRRAOIANCE,  EFIRE,  OF  FIREBALL-L  AT 

SURRAD 

483 

cc 

SLANT  RANGE  SRCSR(L*1).  IN  WATTS/!CW»*?  CM-ih 

SURRAD 

434 

cc 

SURRAD 

4fA 

EFIRE  *  FBRINT(t)/(l. F+10*SRCSR ( L+l  1 *S*CSR ( l+l ) ) 

SURRAD 

486 

cc 

SURRAD 

48'' 

cc 

SET  PARAMETERS  TT)  CALL  ESURF. 

SURRAD 

4flS 

thi  «  src:en-l*1) 

SURRAD 

4?9 

PSI  -  0ETA2I  ( L  +  1 1 

SURRAP 

490 

cc 

CALL  ESURF  WITH  ESL*F1  set  to  .FALSE.  SINCE  THIS  IS  NOT  THE 

SURRAD 

491 

cc 

FIRST  CALL  FROM  THIS  ROUTINE  AND  THUS  WE  00  NOT  NEED  A 

SlWRAD 

492 

cc 

RECOMPUTATION  OF  EPSD  AND  TXS. 

SURRAD 

49? 

ESURF1  «  .FALSE. 

Sl.tfRAH 

494 

cc 

CALL  ESURF  WITH  SPCULR  SET  TO  .FALSE.  UNDER  THE  TENTATIVE 

SURRAD 

495 

cc 

ASSUMPTION  THAT  WE  WILL  NOT  NEEO  THE  SPECULAR  REFLECTION 

SLIPS  AD 

496 

cc 

POINTS  FOR  FIREBALLS  (WHICH  CAN  BE  COMPUTED  IN  GLITTR  IF 

SWRAO 

497 

cc 

MSH=  2 ) .  IF  THERE  IS  INTEREST  IN  KNOWING  SUCH  REFLECTION 

SURRAD 

49S 

cc 

POINTS  WE  WILL  NEED  TO  ESTABLISH  APPROPRIATE  PRESERVING 

SLRRAD 

499 

cc 

VARIABLES. 

SURRAD 

500 

SPCUIR  *  .FALSE. 

SURRAD 

501 

293 


CALL  ESLRF;THI,T>P,PS!,HHH,wS>(,r>D1SPCULR,ZLA»'1IDAv,IF IR E S. ES'J»? F 1 . 

SUPRA? 

50? 

J  SCR,?»S!',T(;S> 

SUPRA? 

so? 

RA3U+2’  =  SFR*tFIR£*CaS!TPn 

SLA!  RAO 

504 

c: 

WTW  HAVE  UNATTEN'JA'EO  REFLECTED  RADIANCE.  RADI L*?j ,  AT 

SURPAD 

505 

cc 

POH'T  P  OL'E  Tj  EIREBAU-L.  HEED  PAT-  PARAMETERS. 

SURRA? 

506 

Iff  l'JP  ,6T.  1  )  SO  TO  60 

SUPRA? 

SO7 

CALL  6E0XV.’  '3ALT(l),EB'  AT.'L\FBL0N(L!,RFm,RF;?\PF{3I} 

SirRR  A? 

50-- 

call  vlin;he,l.oe+os,re,o.o.o.o' 

SURRA? 

*^0Q 

NC  -  0 

SURRA? 

510 

call  steps;  rp.rf.kc.ds.xfracs.incx  ) 

SURRA? 

51 1 

cc 

NOW  HAVE  NC.OS.XFRACS,  AN?  jNDJ. 

51*0  AC- 

cn 

j  .  .. 

FIRST  *  .TRUE. 

SURRAO 

513 

60  CONTINUE 

SURRA? 

51 4 

TAFP(L)  ■>  1.0 

SURRAO 

515 

Ll  *  ]WD»!1)  i  L?  *  !N0X(2) 

SUPRA? 

516 

HSP  *  XFRAC5I1)  *  H5HE1  L F L 1 1  ♦  { 1 , -XFRACSI 1)1  *  HSHELLIL?) 

Surra? 

517 

CALL  AEROSOi.  I  HSP,7lA**,XKSCT,XKASS.C3AS  ) 

SURRA? 

$:- 

XKEXTP  *  XNSCT  ♦  XKA3S 

surra? 

51 Q 

00  70  J=1.NC 

surra? 

5?0 

!F(  0S( J*1).LT.0.U  )  SO  Tc  70 

SLIR°A? 

S21 

IF (  LOP  .EQ.  1  1  CALL  FATH(  FIRST, IMDltf J).OS( Ml.XFRACS^  ' 

Supra? 

5?  2 

LI  -  INOX(  J  )  I  L?  *  INDXIJ+l) 

SURRA? 

523 

HSO  *  XFRACSOl)  *  HSHELLIL?!  «  ( 1 .  -XERACSI  J*1 ' !  •  HSHELULU 

SlIRRAD 

5?4 

CALL  AEROSOL  {  HSQ.ZLAH.T.KSCT.XKAPS.GBAR  ) 

SLSRRAD 

5?5 

XNEXTQ  *  XICSC7  +  XKAAS 

SllRRA? 

5?6 

XKEXT  «  ACCUK  ?.O..0S(0*n,XKEXTP,XXEXT0.0.,DSrj+r  )  /  0SI>1' 

Surra? 

5? 7 

TVP(L)  *  TAFP(L)  *  EXP(  -XK£XT*OS!  J-*ll  ! 

SURRA? 

5?S 

XKEXTP  -  XKEXTQ 

SURRA? 

f?9 

70  CONTINUE 

SURRA? 

530 

cc 

NOW  have  path  PARAMETERS  u  and  UP  FOR.  F1REBALL-L  RAT  TO 

SURRA? 

531 

cc 

POINT  P. 

SLIPOA? 

53? 

cc 

ALSO  HAVE  AEROSOL  TRANSMITTANCE.  TAFPfL',  f0R  FIREBALL-L 

SURRA? 

53^ 

cc 

R.Af  FROM  RF  TO  RP. 

SURRA? 

5  34 

IF (  L0°  .ST.  1  !  SO  TO  99 

SU®  R  A? 

c 

cc 

REDEFINE  VARIABLES. 

S'JRRA? 

536 

DO  80  N=1 .HSPECS 

S'JRRA? 

c  37 

DO  30  M.NTFMp 

SU°RA? 

63? 

U  PS(I.N.L»l!  ■  U  (I.N.?i 

St>  RAC 

539 

UPPEI I,N,L*1)  *  UPfl.N.?' 

SURRA? 

54? 

80  OOHTI «UE 

SURRAD 

541 

99  CONTINUE 

SUPRA? 

rs*  ? 

return 

A'RRA? 

64  ? 

END 

SUMAC 

544 

SUBROUTINE  TANGEO<HAl.GCl,GU,XE21,Y»t21,ZV2t>HA2,GC2>GL2) 

TANGEO 

2 

ccc 

TANGED 

3 

c 

SUSROl'T  INE  -WGfO  !A  MODIFIED  HARC  ROUTINE  CALLED  XYEGEO), 

TANC-^0 

4 

c 

GIVER  the  GEOGRAPHIC  COORDINATES  UF  PO!NT  1  AND  THE'  Tv»GENT- 

TANSCO 

5 

c 

PLANE  COOROINlTfs  0F  POINT  2  WITH  RESPECT  TO  POINT  1,  PROVIDES 

TANGEO 

6 

c 

THE  GEOGRAPHIC  COORDINATES  OP  POINT  2. 

TANGEO 

i 

ccc 

TANGEO 

8 

r 

INPUTS  FRO«  CALL  STATEMENT 

TANGEO 

Q 

c 

HA1  «  ALTITUDE  OF  Pol"’  j.  c«, 

TANGEO 

lb 

c 

GC1  *  COLATITUOE  OF  POINT  1,  RADIANS 

TANGEO 

u 

c 

&L1  -  EAST  LONGITUDE  Of  POINT  1,  RADIANS 

TANGEO 

1 2 

c 

XE21  *  X  COORDINATE  OP  POINT  2  RELATIVE  TO  POINT  1,  CM 

TANGEO 

13 

c 

VN21  *  T  COORDINATE  OP  POINT  2  RELATIVE  10  POINT  1,  CN 

TANGEO 

1A 

c 

2 ¥21  •  i  COORDINATE  OF  POINT  2  RELATIVE  TO  POINT  1,  CN 

TANGEO 

15 

c 

OUTPUTS 

TANGEO 

IP 

c 

NA2  *  ALTITUDE  OP  POINT  2,  CN 

TANGEO 

17 

c 

SC?  -  COLATITUDE  OF  POINT  2,  RADIANS 

TANGEO 

18 

c 

GL2  *  EAST  LONGITUDE  OF  POINT  2,  RADIANS 

TANGEO 

19 

ccc 

TANGEO 

20 

c 

RESTRICTIONS... 

TANGEO 

21 

c 

POINTS  1  AND/OR  2  NAT  NOT  LIE  ON  NORTH-SOUTH  POLAR  AXIS 

TANGEO 

22 

ccc 

TANGEO 

23 

DATA  PI. RE  /  3.I41S9265359O.6.32103E+O6  / 

TANGEO 

24 

ccc 

TANGEO 

25 

GR?Z  ■  REH4A1-»2V21 

TANGEO 

26 

G»2  «  SQRT'X£21**2  ♦  YH21**2  ♦  GF2Z"2) 

TANGEO 

27 

HA2  -  GR2-RE 

TANGEO 

28 

COSGC1  -  COSC&CI! 

TANGEO 

?9 

SIN  SC  1  *  SIN(GCl) 

TANGEO 

30 

COSGC2  -  (Sft2Z*COSGCI  ♦  VN21 '  iINGCl I /GR2 

TANGEO 

3! 

SINGC?  -  S0RT(l.O-COSeC2**2) 

TANGEO 

3? 

SINSLO  *  XE?1/(GR”SINGC2) 

TANGE0 

s': 

COSGLD  -  IGR2Z/GR2  -  COSGC1*CO$GC2 V[SINGC1*SINGC2) 

TANGEO 

34 

GC2  -  ATAN2 (  SINGC2.COSGC2  ) 

TANGEO 

35 

6L0  *  ATAN2(  S1NGLD.C0SGLD  ) 

TANGE9 

3f 

GLt  *  GLl+GLO 

TANGEO 

37 

RETURN 

TANGE-' 

3S 

END 

TANGEO 

3« 
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SUBROUTINE  PANS(  MTEMP,  M,  u.  UP,  FK,  WD'.  .  LDH,  TAU,  ABC,  PBl ,  PANS  ? 

I  FAST,  FIlPOS  1  PANS  3 


c 

TRANS 

4 

CL  J 

TRANE 

5 

CLJ 

input  Parameters 

TRANS 

6 

CLJ 

ARGUMENT  LIST 

TRANS 

7 

Cl  J 

NTEMP 

« 

NUMBER  of  TENPESA-njRES  IN  ATMOSPHERIC 

TRANS 

c 

Cl  J 

TRANSMITTANCE  MODEL  (10.  SET  IN  CALL  FROM  EITHER 

TRANS 

9 

CLJ 

AT**  AO  OR  PNSCO) 

P  ANS 

ID 

CLJ 

h. 

* 

INDEX  fOR  NODE  Of  TRANSMITTANCE  CALCULATION. 

TRANS 

1! 

CLJ 

COL'LO  BE  1.2 . 15  .  WITHIN  THE  NATURAL 

TR  AMS 

12 

CLJ 

BACKGROUND  RADIATION  MODULE  (WHERE  TRANS  IS  CALLED 

TRANS 

13 

CLJ 

FROM  ATT* AD,  TPNSCO,  AND  UPWELL1,  X  IS  ALWAYS  1. 

TRANS 

14 

CLJ 

(IN  CALLS  FROM  PROGRAM  EMISCAT.  N  IS  1.  2,  AND  IS 

TRANS 

15 

CLJ 

ALLOWED  VALUES  UP  TO  15.1 

TRASS 

16 

CLJ 

IN  SUBROUTINE  TRANS,  «-l  LIMITS  USE  Of  THE  U  AND 

TRANE 

IT 

CLJ 

UP  ARRA»S  TO  THEIR  FIRST  HALVES.  Tv:;S  IS 

TRANS 

18 

CLJ 

CONSISTENT  WITH  THE  FACT  THAT  WITHIN  THE  NBP 

TRANE 

19 

CLJ 

MODULE.  SUBROUTINE  TRANS  IS  ALWAYS  CAL!  ED  WITH  w 

TR  Vi? 

20 

CLJ 

SET  TO  1,  U  SET  TO  U(l,l,21,  AND  UP  SET  TO 

TRANS 

21 

CLJ 

UPfl.1.2).  THIS  IS  ALSO  TRUE  FOR  CALLS  WITH  M.; 

TRANS 

2? 

CLJ 

FROM  EMISCAT.  BUT  THERE,  WHEN  M.6E.2,  THE  CALLS 

TRANS 

23 

CLJ 

ARE  WITH  U  A.'D  up.  I.  E..  THE  ENTIRE  ARRAYS. 

TRANS 

2A 

CLJ 

un.N.i) 

AREAL  DENSITY  FOR  TEMPERATURE  I  AND 

TRANS 

25 

CLJ 

SPECIES  N,  CM  AT  STP  {I*!,NTEKP  ,  N*1,«IS»EC) 

TRANS 

26 

CLJ 

UP(I,N,1» 

PATH  PARAMETER  Up  (PRODUCT  Of  U  AN D  PRESSURE  FOR 

TRANS 

V 

CLJ 

TEMPERA’DRE  I  ANO  SPECIES  N,  A1M-CM  AT  ST» 

TRANS 

25 

a  j 

(1-1, NTEMP  ,  N  =  1,NSP£C) 

TRANS 

29 

CLJ 

FK(tf) 

TRAMS 

3D 

CLJ 

(FK(M).  IS  USED  ONLY  IF  M.GE.3  .  CURRENTLY,  »  IS 

TRANS 

37 

CLJ 

SET  TO  1  In  CAiLS  TD  TRANS  FRO*  TRNSCO  AND  ATOAO1 

TRANS 

3? 

CLJ 

WDL 

LOWEST  WAVENUMBER  in  oetector  interval  BEING 

TRANS 

33 

CLJ 

USED,  1/CM 

TRANS 

34 

CLJ 

WDH 

HIGHEST  WAVEHUPBER  IN  DETECTOR  INTERVAL  BEING 

TRANS 

31 

CLJ 

USED.  1/CM 

PANS 

36 

CLJ 

FAST 

LOGICAL  VARIABLE  DETERMINING  COMPLEXITY  Of 

PANS 

3- 

CLJ 

TRANSMISSION  CALCULATION.  IN  CALLS  TO  SUBROUTINE 

PANS 

39 

CLJ 

TRANS  (FROM  SUBROUTINES  AT**AD.  TRNSCO.  ANO  IIPWELL 

TRANS 

39 

CLJ 

WITHIN  THE  NBR  MODULE  AND  FROM  PROGRAM  EMI  SCAT 

PANS 

40 

CLJ 

OUTSIOE  THE  NBR  MODULE),  FAST  IS  SET  TO  TRNSOPt. 

PANS 

41 

CLJ 

-.TRUE.,  TRANSMITTANCE  IS  BASED  ON  SINGLE-LEVEL 

PANS 

4? 

CLJ 

GROUPS  AND  STAT!  STICAL  BANDS.  BAND-*TDEL 

TRANS 

43 

CLJ 

P«A**CTERS  COMPUTED  BY  SUBROUTINE  PWSB 

PANS 

44 

CLJ 

FOR  TRNSOPT*. TRUE.  ARE  HATCHED  TO  USER'S 

PANS 

45 

CLJ 

SPECTRAL  INTERVAL. 

PANS 

46 

CLJ 

-.FALSE.,  TRANSMITTANCE  IS  BASED  ON  MJ.TIPLE-LEVEL 

PANS 

4’ 

CLJ 

GROL’°S  AND  RANDOM  El  SASSER  BANDS.  BAND- 

PANE 

49 

CLJ 

MODEl  PARAMETERS  COMPUTED  By  SUBROUTINE 

PAN5 

49 

CLJ 

TRANSB  FOR  TRNSOPTs. false,  are  for  a 

PANS 

50 

CLJ 

HIGHER  RESOLU'ION  THAN  THE  USER'S  SPECTRA 

PANS 

61 

CLJ 

INTERVAL,  A  FACT  TAKEN  INTO  ACCOUNT  IN 

PANS 

63 

CLJ 

COMPUTING  (ME  TRANSMITTANCE. 

PANE 

c 7 

CLJ 

FlLPCS 

• 

FILE  POSITION.  SET  TO  1 .  E*04  IN  CALLS  FRO* 

PANS 

54 

CCJ 

SUBROUTINES  TRNSCO  WD  ATMRAD. 

PANE 

CF 

CLJ 

XT  C0*CN 

PANS 

56 

CLJ 

TTfU 

* 

TEMPER  A  fUR  E  WRAY  ]«  ATMOSPHERIC  TRANS“'SSION 

PANS 

CLJ 

MODEL,  SET  AS  DATA  IN  THE  DRIVER  PRDGPA*. 

PANS 

5« 

2% 


CLJ 

XYZCOM  CWttON 

TRANS 

59 

CL  J 

LTMTE  *  BINARY  FILE  CONTAINING  THE  BANO-tdOEL  PARAMETERS 

TRANS 

60 

CLJ 

WHICH  WERE  DERIVED  IN  SUBROUTINE  TRANS8  FROM  THE 

TRANS 

61 

CLJ 

BASIC  5- ( 1/CM) -RESOLUTIOI  DATA. 

TRANS 

62 

CLJ 

LTMTE  IS  IDENTICAL  TO  TAPOT,  THE  FILE  WRITTEN 

TRANS 

63 

CLJ 

BY  TRAN  SB.  (SEE  TRANSB.) 

TRANS 

64 

CLJ 

TRANS 

65 

CLJ 

FOP.  EACH  READ  OE  THE  LTHTE  FILE,  THE  202  WOP.DS 

TRANS 

66 

CLJ 

ARE  STORED  AS... 

TRANS 

67 

CLJ 

WTl,  •  LOWER  AND  HIGHER  WAVENUMBERS  OF  INTERVAL,  CM-1 

TRANS 

68 

CLJ 

WTH 

TRANS 

69 

CLJ 

FOR  1-1,10  ,  IS-1,10 

TRANS 

70 

CLJ 

SOD ( I  .IS)  -  MEAN  A8 SORPTION  COEFFICIENT  FOR  SPECI ES-I S  AT 

TRANS 

71 

CLJ 

TEMPERATURE-  INDEX  - 1  FOR  THE  WAVENUMBER  INTERVAL, 

TRANS 

72 

:lj 

1/CM  AT  CTP 

TRANS 

73 

CLJ 

DEKI.IS)  -  1NVEP.  OF  MEAN  LINE-SPACING  PARAMETER,  OP  THE 

TRANS 

74 

CLJ 

EFFECTIVE  LINE  DENSITY,  LINES/O/CM) 

TRANS 

75 

CLJ 

TRANS 

76 

CLJ 

NSPEC  *  NMOLS,  THE  NUMBER  OF  SPECIES.  SET  IN  DRIVER. 

TRANS 

77 

CLJ 

OUTPUT  PARAMETERS 

TRANS 

78 

CLJ 

ARGUMENT  LIST 

TRANS 

79 

CLJ 

TAU(N,H)  «  TRANSMITTANCE  FOR  SPECIES  N 

TRANS 

80 

CLJ 

(N-l, NSPEC  ,  M-1,15)  (BUT  H*1  FOR  NBR  MODULE) 

TRANS 

81 

CLJ 

ABC(N,M)  «  OPTICAL  DEPTH  FOR  SPECIES  N,  DIMENSIONLESS 

TRANS 

82 

CLJ 

(N-l, NSPEC  ,  M-1,15)  (BUT  M-l  FOR  NBR  MODULE) 

TRANS 

83 

CLJ 

TTBL(M)  *  MOLECULAR  TRANSMITTANCE  FOR  MODE  M 

TRANS 

84 

DIMENSION  U(NTEMT.IO.P),  UP(NTEMP,10.2),  FY.(M) ,  NSRAY(IO), 

TRANS 

85 

1  GHAT (13,5),  6(13.10) ,  6(13,10),  THETA(IO),  CF(13.10.10), 

TRANS 

86 

2  CG( 13 ,10 ,10) ,  TAU(IO.M),  XMV(IC),  SOD(10,10).  DEI (10.10), 

TRANS 

87 

3  ALS(IO),  ABC(IO.M),  TTBL(M) 

TRANS 

88 

C 

TRANS 

89 

COMMON  /  XY  /  TT(10) 

TRANS 

90 

COMMON  /  XYZCOM  /  ITMTE,  LTMTE.  XXX(1454),  NSPEC,  FACT 

TRANS 

91 

c 

COMMON  /  CONCOH  /  Pt,  RBODY . 

TRANS 

9? 

c 

TRANS 

93 

LOGICAL  TABLIN,  FAST 

TRANS 

94 

c 

TRANS 

95 

DATA  SOD  /  100  u  0.  /,  DEI  /  100  *  0.  / 

TRANS 

96 

DATA  N5RAY  /  A,  3.  1Z.  10.  10.  11,  4,  0,  5,  Z  / 

TRANS 

97 

DATA  GHAT  /  1  ,  4.,  6..  10.,  14.,  19.,  Z5.,  33.,  4Z..  53., 

TRANS 

98 

1  66.,  80..  1..  1.,  3.,  3.,  6.,  7.,  10..  1Z..  14.,  17.,  19.. 

TRANS 

99 

2  0..  0.,  1.,  3.,  6.,  7..  10.,  15.,  17.,  Zl..  Z8.,  30..  0., 

TRANS 

100 

3  0.,  1.,  2.,  4.,  6..  10.,  14.,  ?G.,  27 . ,  36.,  46..  58..  7?.. 

TRANS 

101 

4  0.,  1..  1..  3..  3.,  3.,  6.,  7  *  0.  / 

TRANS 

102 

DATA  THETA  /  2740.,  34Z0,,  850.,  108C.,  1015.,  960.,  T123-,  0-. 

TRANS 

103 

1  2300. ,  5350 .  ! 

TRANS 

104 

DATA  ALS  /  .'34,  .04.  .08,  .10,  .11,  .07,  .06,  .06,  .04,  .06  / 

TRANS 

105 

DATA  A1  /  0-3480242  /,  A?  /  -.0958798  /,  A3  /  0.7478556  / 

TRANS 

106 

DATA  P  /  0.47047  / 

TRANS 

107 

DATA  XMW  /  30..  30.,  44.,  46.,  48.,  44.,  2B. ,  16..  18.,  17.  / 

DATA  TABLIN  /  .FALSE.  /,  WIP  /  0.  /,  WHP  /  0.  / 

TRANS 

108 

TRANS 

109 

DATA  PI  /  3  14159265  / 

TRANS 

110 

c 

TRANS 

111 

CLJ 

ENTRY  TRANSl  IS  PROVIDED  BY  SAI  (12/29/781  TO  AVOID  CONFLICT 

TRANS 

112 

CLJ 

IN  SUBROUTINE  UPWELL  BETWEEN  THE  ARRAY  TRANS  IN  COAMON  CIDWT 

TRANS 

113 

CLJ 

AND  THE  CALL  TO  SUBROUTINE  TRANS. 

TRANS 

114 

ENTRY  TRAN51 

TRANS 

115 

?97 


H10  •  N  *  10 

C 

00  31  I  -  1.  HID 
ABC( 1,1)  *  0. 

TAU(l.l)  *  0. 

31  CONTINUE 
C 

If  (  TA8L  IN  .OR.  FAST  )  GO  TO  27 

C  INITAILIZATIONS 

C 

C  LOOP  OVER  SPECIES 

C 

DO  1  IS  -  1.  NSPEC 
NS  *  NSRAY(IS)  ♦  1 

c 

c  LOOP  OVER  ENERGY  BINS 

C 

DO  2  J  *  1,  NS 
F(J,IS)  *  1. 

GO  TO  I  3.  3.  4,  4.  4.  4.  3,  4,  4,  3  ).  IS 
C 

3  F(J.IS)  *  J 

4  GO  TO  (  5.  6.  7,  8.  8,  10.  6,  11.  12,  5  ),  IS 
C 

5  G(J.IS)  •  2. 

GO  TO  2 

C 

6  G(J.IS)  -  1. 

GO  TO  2 

C 

7  G( J.ISl  -  GHAT(J.l) 

GO  TO  2 

c 

8  Gf J.ISl  *  GH AT ( J , 2 )  *  100. 

GO  TO  2 

C 

9  G{ J.IS)  •  GHATI0.3)  *  100. 

GO  TO  2 

C 

10  GfO.IS)  *  GHATU.4) 

GO  TO  2 

C 

11  G(J.IS)  -  100. 

GO  TO  2 

C 

12  GfO.IS)  -  GHAT(J,5)  *  100. 

2  CONTINUE 

C 

1  CONTINUE 
C 

C  LOOP  OVER  TEMPERATURES 

C 

DO  13  I  ■  1,  NTEMP 

r 

C  LOuP  OVER  SPECIES 


TRANS 

116 

TRANS 

117 

TRANS 

118 

TRANS 

119 

TRANS 

120 

TRANS 

121 

TRANS 

122 

TRANS 

123 

TRANS 

124 

TRANS 

125 

TRANS 

126 

TRANS 

127 

TRANS 

128 

TRANS 

129 

TRANS 

130 

TRANS 

131 

TRANS 

132 

TRANS 

133 

TRANS 

134 

TRANS 

135 

TRANS 

136 

TRANS 

137 

TRANS 

138 

TRANS 

139 

TRANS 

140 

TRANS 

141 

TRANS 

142 

TRANS 

143 

TRANS 

144 

TRANS 

145 

TRANS 

146 

TRANS 

147 

TRANS 

148 

TRANS 

149 

TRANS 

ISO 

TRANS 

151 

TRANS 

152 

TRANS 

153 

TRANS 

154 

TRANS 

155 

TRANS 

156 

TRANS 

157 

TRANS 

153 

TRANS 

159 

TRANS 

160 

TRANS 

161 

TRANS 

162 

TRANS 

163 

TRANS 

164 

TRANS 

165 

TRANS 

166 

TRANS 

167 

TRANS 

168 

TRANS 

169 

TRANS 

170 

TRANS 

171 

TRANS 

17? 

C  TRANS 

DO  14  IS  -  1,  NSPEC  TRANS 

C  TRANS 

NS  *  NSRAY(IS)  +  1  TRANS 

F SUM  -  0.  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

DO  15  J  -  1.  NS  TRANS 

FJ  *  J  -  1  TRANS 

F  SUN  -  FSUM  +  F(J.IS)  *  G(J.1S)  *  EXP(  -THETA(IS)  *  FJ  /  TT(I)  )  TRANS 

15  CONTINUE  TRANS 

C  TRANS 

FI  SUM  «  0.  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

DO  16  J  *  1,  NS  TRANS 

CF(  J, I S,I )  -  1.  TRANS 

FJ  *  J  -  1  TRANS 

CF(J.IS.I)  *  F(J.IS)  *  G(J.IS)  *  EXP  (  -THETAi  IS)  *  FJ  /  TT  ( I )  )  TRANS 

J  !  FSUM  TRANS 

FI  SUM  -  FISUM  +  SORT!  CF(J.IS.I)  *  G(J,IS)  )  TRANS 

16  CONTINUE  TRANS 

C  TRANS 

C  LOOP  OVER  ENERGY  BINS  TRANS 

C  TRANS 

00  17  J  •  1.  NS  TRANS 

CG(  J.TS.l )  -  1.  TRANS 

FJ  -  J  -  1  TRANS 

CG(J.IS.I)  «  G( J,1  S!  /  FISUM  **?  TRANS 

17  CONTINUE  TRANS 

C  TRANS 

14  CONTINUE  TRANS 

C  TRANS 

13  CONTINUE  TRANS 

C  TRANS 

TABLIN  -  .TRUE.  TRANS 

C  TRANS 

27  IF  (  FAST  .AND.  I  WDL  .NE.  WIP  .OR.  WCM  .NE.  WHP  )  )  GO  TD  23  TRANS 

IF  (  FILPOS  .LE.  WDL  )  GO  TO  74  TRANS 

C  TRANS 

REWIND  LTMTE  TRANS 

WTL  -  0.  TRANS 

WTH  •  0.  TRANS 

GO  TO  24  TRANS 

C  TRANS 

C  READ  SPECTRAL  DATA  FILE  TRANS 

C  TRANS 

23  READ  (LTMTE)  WTl,  WTH,  (  (  SOOn.IS),  I  ■  1.  NTEMP  ),  TRANS 

J  (  DEIO.IS),  I  *  1,  NTEMP  ),  IS  *  1.  NSPEC  )  TRANS 

FILPOS  «  WTL  TRANS 

WHP  «  WDH  TRANS 

WLP  *  WDL  TRANS 

C  TRANS 

24  OLAP  «  FRAC(  WDL,  WON,  WTL,  WTH  )  TRANS 

IF  (  WTL  .GE.  WDH  )  RETURN  TRANS 


173 

174 

175 

176 

177 

178 

179 

180 
181 
18? 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
22? 

223 

224 

225 

226 

227 

228 
229 


IF  (  OLAP  .LE.  0.  )  GO  TO  23 

TRANS 

230 

c 

TRANS 

231 

W  -  (  WTL  +  WTH  )  /  2. 

TRANS 

232 

c 

TRANS 

233 

c 

LOOP  OVER  PATH  SEGMENTS 

TRANS 

234 

c 

TRANS 

235 

CLJ 

IN  NBR  MODULE  USAGE,  M  IS  SET  TO  1  IN  CALLS  TO  SUBROUTINE 

TRANS 

236 

CLJ 

TRANS,  BUT  IN  CALLS  TO  TRANS  FROM  PROGRAM  CMISCAT,  K  IS  SET  TO 

TRANS 

237 

CLJ 

1.  2,  AND  MAT  BE  UP  TO  15. 

TRANS 

238 

DO  22  K  •  1.  M 

TRANS 

239 

c 

TRANS 

240 

c 

LOOP  OVER  SPECIES 

TRANS 

241 

c 

TRANS 

242 

DO  IS  IS  -  1,  NSPEC 

TRANS 

243 

ADS  -  3.5BE-7  *  W  *  SORT(  273.  /  XMW(IS)  ) 

TRANS 

?44 

NS  -  NSRAY(IS)  +  1 

TRANS 

245 

IF  (  FAST  )  NS  -  1 

TRANS 

246 

XS  *  0. 

TRANS 

247 

c 

TRANS 

248 

c 

LOOP  OVER  ENERGY  BINS 

TRANS 

249 

c 

TRANS 

250 

CLJ 

NOTE  THAT  NS-1  FOR  FAST  ■  TRNSOPT  -  .TRUE.  . 

TRANS 

251 

DO  19  J  -  1.  NS 

TRANS 

252 

XML  -  0. 

TRANS 

253 

SUMC  -  0. 

TRANS 

254 

SUMO  -  0. 

TRANS 

255 

C 

TRANS 

256 

C 

LOOP  OVER  TEMPERATURES 

TRANS 

257 

c 

TRANS 

258 

c 

CALCULATE  OPTICAL  DEPTH  IN  WEAK-LINE  APPROXIMATION 

TRANS 

259 

c 

TRANS 

260 

DO  20  I  •  1,  NTEMP 

TRANS 

261 

IF  (  M  .GE.  3  )  GO  TO  29 

TRANS 

262 

CLJ 

SINCE  M*1  IN  NBR-MODULE  USAGE,  K  HAS  THE  SINGLE  VALUE  OF  1. 

TRANS 

263 

CLJ 

THUS,  WE  ARE  SETTING  U[1 .15.1 )  AND  UP(I,IS,1)  INTO  US  AND 

TRANS 

264 

CLJ 

UPS.  RESPECTIVELY. 

■iRANS 

265 

US  -  U(I,IS,K) 

TRANS 

266 

UPS  -  UP(l.IS.K) 

TRANS 

76/ 

GO  TO  30 

TRANS 

268 

C 

TRANS 

269 

CLJ 

THE  FOLLOWING  EXPRESSION  IS  USED  ONLY  IF  M.GE.3,  AS  MAY  OBTAIN 

TRANS 

270 

CLJ 

FOR  CALLS  TO  TRANS  FROM  PROGRAM  EMISCAT.  NBR-MODULE  USAGE  HAS  TRAN 5 

27] 

CLJ 

M»l,  SO  U( I ,IS,2)  AND  UP{I,I5,2)  ARE  NOT  USED  IN  SUBROUTINE 

TRANS 

272 

CLJ 

TRANS,  NOR  IS  THE  ARRAY  FK,  FOR  THE  NBR  MODULE. 

TRANS 

273 

29 

US  ■  (  1.  -  FK(K)  )  *  U(I,IS,1)  ♦  FK(K)  *  U( I , I S,2 > 

TRANS 

274 

UPS  -  (  1.  -  FK(K)  )  *  UPU.IS.l)  +  FK{K)  *  UP(I,IS,2) 

TRANS 

275 

C 

TRANS 

276 

30 

IF  (  US  .EQ.  0.  )  SO  TO  20 

TRANS 

277 

IF  (  FAST  )  GO  TO  36 

TRANS 

278 

SODI  -  CF(J,IS,I)  *  SOD(I,IS) 

TRANS 

279 

DEII  *  CG{J,IS,I)  *  DEI ( I , IS) 

TRANS 

280 

GO  TO  32 

TRANS 

281 

C 

TRANS 

282 

36 

SODI  ■  SOO(I.IS) 

TRANS  - 

283 

DEII  ■  DEI (I , IS) 

TRANS 

284 

C 

TRANS 

285 

32 

XWl  ■  XWL  ♦  SODI  •  US 

TRANS 

286 

300 


SUMC  *  SUMC  +  SQRT (  273.  /  TT'I'i  )  *  DEII  *  SOOI  *  UPS 

TRANS 

287 

SUMO  -  SUMO  +  SORT)  TT(1)  /  273.  )  *  DEM  *  SODI  *  US 

TRANS 

288 

20  CONTINUE 

TRANS 

289 

c 

TRANS 

290 

IF  (  XML  .LE.  1. E-IOO  )  GO  TO  34 

TRANS 

291 

r 

TRANS 

292 

c 

CALCULATE  OPTICAL  DEPTH  IN  AN  APPROXIMATE 

TRANS 

293 

c 

RANDOM  aSASSER  MOOa 

TRANS 

294 

c 

TRANS 

295 

AC  SO  *  ALS(IS)  /  XWL  *  SUMC 

TRANS 

296 

ADSJ  ■  AOS  /  XWL  *  SUMO 

TRANS 

297 

IF  (  FAST  )  GO  TO  25 

TRANS 

298 

U2  *  PI  *  XWL  **2  /  (  *.  *  G ( J » I S )  **2  *  {  1.  *  XWL  / 

TRANS 

299 

S  (  4.  *  ACSO  )  )  ) 

TRANS 

300 

TL  *  I.  /  (  1.  ♦  P  *  SQRT(  U2  )  ! 

TRANS 

301 

XRE  *  -C-(J.IS)  *  (  A10G(  A1  *  TL  +  A2  *  TL  **2  +  A3  *  TL  **3  )  - 

TRANS 

302 

$  U2  ) 

TRANS 

303 

c 

TRANS 

304 

c 

CALCULATE  OPTICAL  DEPTH  FOR  LORENTZ  LINES 

TRANS 

305 

c 

TRANS 

306 

XL  -  AHINM  XRE,  XWL  ) 

TRANS 

307 

GO  TO  33 

TRANS 

308 

c 

TRANS 

309 

25  XL  -  XWL  /  SQRT(  1.  ♦  XWL  /  (  4.  *  ACSO  )  ) 

TRANS 

310 

c 

TRANS 

31! 

c 

CALCULATE  OPTICAL  DEPTH  FOR  DOPLER  LINES 

TRANS 

312 

c 

TRANS 

313 

33  XD  -  1.7  *  AOSU  *  SQRT(  ALOG(  1.  ♦  (  XWL  /  (  1.7  «  ADSO  )  )  **2 

))  TRANS 

314 

A  *  (  1.  -  {  XL  /  XWL  )  **2  )  —2 

TRANS 

315 

B  *  (  1.  -  {  XO  /  XWL  )  **2  )  **2 

TRANS 

316 

IF  (  A  +  B  .LE.  1  .£-15  )  GO  TO  21 

TRANS 

317 

Y  -  SQRT(  A*B/(B+A-A*B)) 

TRANS 

318 

c 

TRANS 

319 

c 

CALCULATE  OPTICAL  DEPTH  OF  SPECIES 

TRANS 

320 

c 

TRANS 

321 

XS  *  XS  ♦  XWL  *  SORT (  1.  -  Y  ) 

TRANS 

322 

GO  TO  19 

TRANS 

323 

c 

TRANS 

324 

21  XS  -  XS  +  XWL 

TRANS 

325 

CLJ 

STATEMENT  19  IS  FOR  THE  ENERGY-BIN  LOOP  ON  INDEX  J.  FCR 

TRANS 

326 

CLJ 

FAST  -  .TRUE.,  THIS  LOOP  IS  DONE  ONLY  ONCE. 

TRANS 

327 

19  CONTINUE 

TRANS 

328 

c 

TRANS 

329 

c 

TRANS 

330 

c 

CALCULATE  TRANSMITTANCE  OF  SPECIES 

TRANS 

331 

c 

TRANS 

332 

ABC(IS.K)  «  ABC(IS,K)  ♦  XS  •  OLAP 

TRANS 

333 

TAU(IS.X)  ■  TAU(IS.K)  ♦  EXP(  -XS  )  *  OLAP 

TRANS 

334 

GO  TO  18 

TRANS 

335 

34  TAU(IS.X)  -  TAU(IS,X)  ♦  OLAP 

TRANS 

336 

CLJ 

1  STATEMENT  18  IS  FOR  THE  SPECIES  LOOP  ON  INDEX  IS. 

TRANS 

337 

18  CONTINUE 

TRANS 

338 

c 

TRANS 

339 

CIO 

1  STATEMENT  22  IS  FOR  THE  SO-CALLED  PATH-SEGMENT  LOOP  ON  INDEX 

TRANS 

340 

cu 

1  X.  FOR  NBR -MODULE  USAGE,  X  EQUALS  ONLY  1, 

TRANS 

341 

22  CONTINUE 

TRANS 

342 

c 

TRANS 

343 

301 


IF  (  WTH  .LT.  .9999999  *  WDH  )  SO  TO  23 

TRANS 

344 

c 

TRANS 

34S 

DO  35  K  «  1,  H 

TRANS 

346 

TT8L(K)  *  I. 

TRANS 

347 

DO  35  IS  *  1,  NSPEC 

TRANS 

348 

CLJ 

THE  FOLLOWING  TWO-LINE  CHANGE,  RECEIVED  IN  TWO  INSTALLMENTS 

TRANS 

349 

CLJ 

FROM  L.  EWING  ON  3/20/79  AND  A.  KLEIN  ON  9/10/79,  AFFECTS  THE 

TRANS 

350 

CLJ 

EMISSION  CALCULATION  IN  SUBROUTINE  ATNRAD. 

TRANS 

351 

IF (  (  TAU(IS.K)  .LT.  0.9999  )  .AND.  (  TAU(IS,K)  .6T.  0.0001  )  ) 

TRANS 

352 

ABC(IS.K)  *  -ALOG(  TAU(IS.K)  } 

TRANS 

353 

35 

TTBL(K)  *  TTBL(K)  *  TAU(IS.K) 

TRANS 

354 

C 

TRANS 

355 

RETURN 

TRANS 

356 

END 

TRANS 

357 

302 


SUBROUTINE  TRANSB  (  LBAND  ) 

TRANSB 

2 

c 

TRANSB 

3 

c 

‘TR4NS8*  eliminates  unnecessary  spectral  DATA  FROM 

TRANSB 

4 

c 

THE  EXTERNAL  FILE.  THE  TYPE  OF  SPECTRAL  COVERING  GENERATED 

TRANSB 

5 

c 

DEPENDS  OH  TRNSOPT.  IF  TRNSOPT  IS  .TRUE.  ,  THE  FASTEST 

TRANSB 

6 

c 

BUT  LEAST  ACCURATE  CALCULATIONS  HILL  BE  DONE. 

TRANSB 

7 

c 

TRANSB 

Q 

ClJ 

TRANSB 

9 

CLJ 

INPUT  PARAMETERS 

TRANSB 

10 

CLJ 

ARGUMENT  LIST 

TRANSB 

11 

CLJ 

IBAND  -  list  HEADER  VARIABLE  (LHV)  FOR  WAVELENGTH  BANDS 

TRANSB 

1? 

CLJ 

DATASET. BN  (NO.  114).  STRICTLY,  LBAND  IS  THE 

TRANSB 

13 

CLJ 

POINTER  (I.E..  IT  CONTAINS  THE  (Q-ARRAY)  ADDRESS 

TRANSB 

14 

CLJ 

FOR  THE  LIST  HEADER  OF  THE  WAVELENGTH  BANDS 

TRANSE 

15 

CLJ 

DATASET- BN. 

TRANSB 

i6 

CLJ 

IN  GRC  USAGE,  LBAND  IS  S10RED  AS  WORD-12  OF 

TRANSB 

17 

CLJ 

DATASET-ST  (NO.  111). 

TRANSB 

IS 

CLJ 

IN  THE  SAI  STAND-ALONE  VERSION  OF  THE  NBR  MODULE, 

TRANSB 

19 

CLJ 

DATASET-ST  /NO.  Ill)  IS  NOT  USED,  BUT  LBAND  IS 

TRANSB 

20 

CLJ 

STILL  GENERATED  IN  PROGRAM  DRVURW  AND  USED  AS  THE 

TRANSB 

?\ 

CLJ 

LHV  FOR  OATASET-BN. 

TRANSB 

22 

CLJ 

XV2C0M  COMMON 

TRANSB 

23 

CLJ 

ITMTE  =  AUXILIARY  INPUT  DATA  FILE  NUMBER,  (  =  2  IN  DRVUPU) 

TRANSB 

24 

CLJ 

LTMTE  *  AUXILIARY  OUTPUT  DATA  FILE  NUMBER,  (=3  IN  DRVUPw) 

TRANSB 

25 

CLJ 

OPTION  COMMON 

TRANSB 

26 

CLJ 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  (A)  PROCEDURE  FOR 

TRANSB 

27 

CLJ 

CONVERTING  THE  BASIC  5-(l/CM)-RES0LUTI0N  BAND- 

TRANSB 

28 

CLJ 

MODEL  PARAMETERS  TO  THOSE  FOR  THE  USER-SPECIFIED 

TRANSB 

20 

CLJ 

RESOLUTION  AND  (B)  POSSIBLE  REDUNDANCY  OF  OUTPUT 

TRANSB 

30 

CLJ 

DATA  IF  USER -SELECTED  BANDS  OVERLAP  WITH  COMMON 

TRANSB 

31 

CLJ 

SPECTRAL  INTERVALS. 

TRANSB 

32 

CLJ 

=.TRU£. ,  TRANSB  PROVIDES... 

TRANSB 

33 

CLJ 

(A)  IN-BAND  (MORE  PRECISELY,  "IN- INTERVAL") 

TRANSB 

34 

CLJ 

AVERAGED  BAND- MODEL  PARAMETERS.  (THERE  IS  NO 

TRANSB 

35 

CLJ 

LIMIT  ON  THE  ALLOWED  COARSENESS  OF  THE 

TRANSB 

3F 

CLJ 

RESOLUTION.  IF  RESOLUTION  FINER  THAN  5-(l/CM)  IS  TRANSB 

37 

CLJ 

REOUESTED,  THE  CODE  WILL  COMPUTE  ANSWERS,  BUT 

TRANSB 

38 

CLJ 

THEY  MAY  HAVE  LITTLE  OR  NO  PHYSICAL  REALITY.) 

TRANSB 

3“ 

CLJ 

(B)  BAND-MODEL  PARAMETERS  FOR  EACH  INTERVAL 

TRANSB 

40 

CLJ 

WITHIN  A  BAND  (EVEN  THOUGH  BANDS  MAY  OVERLAP), 

TRANSB 

4! 

CLJ 

AND  THE  BANDS  ARE  ORDERED  AS  IN  THE  WAVELENGTH 

TRANS? 

4? 

CLJ 

BANDS  DATASET-BN  (NO.  114). 

TRANSB 

43 

CLJ 

=  . FALSE..  TRANSB  PROVIDES... 

TR  AN  SB 

44 

ClJ 

(A)  BAND-MODEL  PARAMETERS  AT  A  (BELOW-DEFINFD) 

TRANSB 

45 

CLJ 

RESOLUTION  THAT  MAY  BE  FINER  THAN  THE  REQUESTED 

TRANSB 

46 

CLJ 

SPECTRAL  INTERVALS.  IN  THIS  CASE  THE  TRANSB- 

TRANSB 

47 

CLJ 

GENERATED  RESOLUTION  (OR  SUBINTERVAL  1  IS  0.5  OF 

TRANSB 

48 

CLJ 

THE  NARROWEST  USER-SPEC  IF]  ED  WAVENUMBER  INTERVAL, 

TRANSB 

49 

CLJ 

BUT  WITHIN  THE  RANGE  OF  5  TC  50  (1/CM).  THE 

TRANSB 

50 

CLJ 

LOWER  EDGE  OF  THE  FIRST  OUTPUT  INTERVAL  LIES  AT 

TRANSB 

51 

CLJ 

THE  lower  EDGE  OF  THE  LOWEST  WAVENUMBER  SPECTRAL 

TRANSB 

5? 

CLJ 

INTERVAL. 

TRANSB 

53 

ClJ 

(81  non-pedundant  information  for  intervals  in 

TRANSB 

54 

CLJ 

OVERLAPPING  BANDS.  /IF  BANDS  DON'T  OVERLA0, 

TRANSB 

56 

CLJ 

THERE  IS  NOTHING  TO  ELIMINATE,  OF  COURSE.) 

TR  AN  S3 

56 

CLJ 

NOTE.  FOR  ADDITIONAL  INFORMATION  REGARDING  USE 

TR  AN  FP 

5T 

CLJ 

OF  THESE  BAND-MODEL  PARAMETERS,  SEE  COMMENTS 

TR  AN  SB 

5P 

303 


CL  J 

UNDER  THE  LOGICAL  VARIABLE  FAST  IN  SUBROUTINE 

TRANSB 

59 

ClJ 

TRANS. 

TRANSB 

60 

CLJ 

"DATASET-BN ' 1 

TRANSB 

61 

CLJ 

*♦  NOTE  * 

THE  SPELLING  (BN)  IS  AN  UNFORTUNATE  ARTIFACT  FROM 

TRANSB 

6? 

CLJ 

* 

THE  ORIGINAL  DEVELOPMENT  OF  THE  ROUTINE  BY  L. 

TRANSB 

63 

CLJ 

* 

EWING  OF  GET.  HE  ARE  REALLY  DEALING  WITH  WORDS-3, 

TRANSB 

64 

CLJ 

* 

-4.  AND  -6  OF  THE  GRC  DICTIONARY  DATASET-81  (NO. 

TRANSB 

65 

CLJ 

* 

115)  AND  NOT  DATASET-BN  (NO.  114). 

TRAN5B 

66 

CLJ 

WLO  BN,  « 

LOWEST  AND  HIGHEST  WAVENUMBERS  OF  SPECTRAL 

TRANSB 

67 

CLJ 

WH]  BN 

INTERVAL  OVER  WHICH  BAND-MODEL  PARAMETERS  ARE  TO 

TRANSB 

68 

CLJ 

BE  AVERAGED,  CH-1 

TRANSB 

69 

CLJ 

TFLAG  BN  ‘ 

FLAG  TO  DENOTE  WHETHER  THE  WAVELENGTH  OR 

TRANSB 

70 

CLJ 

WAVENUMBER  (CORRESPONDING  TO  THE  ARGUMENT  OF 

TRANSB 

71 

CLJ 

TFLAG  BN)  IS  ASSOCIATED  WITH  THE  FIRST, 

TRANS8 

7? 

CLJ 

INTERMEDIATE,  OR  LAST  SPECTRAL  DIVISION  IN  A  BAND 

TRANSB 

73 

CLJ 

OF  (ASCENDING)  WAVELENGTHS  OR  (ASCENDING) 

TRANSB 

74 

CLJ 

WAVENUM8ERS. 

TRANSB 

75 

CLJ 

* 

1.,  FIRST  SPECTRAL  DIVISION  (LOWEST  WAVELENGTH)  IN 

TRANSB 

76 

CLJ 

A  WAVELENGTH  BAND  OR  LAST  SPECTRAL  DIVISION 

TRANSB 

77 

CLJ 

(HIGHEST  WAVENUrBER)  IN  A  WAVENUMBER  BAND 

TRANSB 

78 

CLJ 

X 

D.,  INTERMEDIATE  SPELTRAL  DIVISION 

TRANSB 

79 

CLJ 

* 

2.,  LAST  SPECTRAL  DIVISION  (HIGHEST  WAVELENGTH)  IN 

TRANSB 

80 

CLJ 

A  WAVELENGTH  BAND  OR  FIRST  SPECTRAL  DIVISION 

TRANSB 

SI 

CLJ 

(LOWEST  WAVENUWER)  IN  A  WAVE  NUMBER  BAND 

TRANSB 

82 

CLJ 

INPUT  BINARY 

FILE 

TRANSB 

83 

CLJ 

TAPIN  - 

EQUIVALENT  TO  ITMTE.  CONTAINS  BAND-MODEL 

TRANSB 

84 

CLJ 

PARAMETERS  FOR  5-(CM-l)  RESOLUTION 

TRANSB 

85 

CLJ 

V5L  • 

LOWER  WAVENUMBER  OF  5-(CM-l)  INTERVAL  FOR  THE  SET 

TRANSB 

86 

CLJ 

1997.5(5.0)4997.5  CM-1 

TRANSB 

87 

CLJ 

NSH  * 

HIGHER  WAVENUMBER  OF  5-(CM-l)  INTERVAL  FOR  THE  SET 

TRANSB 

88 

CLJ 

2002.5(5.0)5002.5  CM-1 

TRANSB 

89 

CLJ 

FOR 

1=1,10  ,  IS=1.10  ... 

TRANSB 

90 

CLJ 

SOD(I.IS)  * 

MEAN  ABSORPTION  COEFFICIENT  FOR  SPECIES-IS  AT 

TRANSB 

91 

CLJ 

TEMPERATURE-INDEX-!  FOR  THE  5- ( CM-1 )  INTERVAL 

TRANSB 

92 

CLJ 

FROM  WSL  TO  WSH,  CM-1  AT  STP 

TRANSB 

93 

CLJ 

DEI (I, IS)  - 

INVERSE  OF  MEAN  LINE-SPACING  PARAMETER,  OR  THE 

TRANSB 

94 

CLJ 

EFFECTIVE  LINE  DENSITY,  LINES/(CM-1). 

TRANSB 

95 

CLJ 

OUTPUT  PARAMETERS 

TRANSB 

96 

CLJ 

OUTPUT  BINARY  FILE 

TRANSB 

97 

CLJ 

TAPOT  * 

EQUIVALENCEO  TO  LTMTE.  CONTAINS  BAN0-M1DEL 

TRANSB 

98 

CLJ 

PARAMETERS,  DERIVED  FROM  THE  5-(CM-l  )-RESOLUTION 

TRANSB 

99 

CLJ 

DATA,  FOR  the  USER-SPECIFIED  INTERVAL  DW  EITHER 

TRANSB 

100 

CLJ 

(A)  COmjNICATED  THROUGH  THE  OATASET-BI  IE 

TRANSB 

101 

CLJ 

TRHSOPT  -  .TRUE.  OR  (B)  SET  BY  AN  ALGORITHM  IF 

TRANSB 

102 

CLJ 

TRNSOPT  -  .FALSE.  THE  ALGORITHM  IS  THAT  OW  EQUALS  TRANSB 

103 

CLJ 

ONE-HALF  OF  THE  MINIMUM  DW  COMMUNICATED  THROUGH 

TRANSB 

104 

CLJ 

THE  DATASET-BI ,  BUT  NOT  LESS  THAN  5.0  OR  MORE 

TRANSB 

105 

CLJ 

THAN  50.0  CM-1 

TRANSB 

106 

CLJ 

HL.  • 

LOWER  AND  HIGHER  WAVENUMBERS  OF 

TRANSB 

107 

CLJ 

MH 

INTERVAL  OW,  CM-1 

TRANSB 

108 

CLJ 

FOR 

1-1,10  ,  IS*1,10  ... 

TRANSB 

109 

CLJ 

S(I,IS)  * 

MEAN  ABSORPTION  COEFFICIENT  FOR  SPECIES-IS  AT 

TRANSB 

no 

CLJ 

TEMPERATURE- INOEX- I  FOR  THE  INTERVAL  DW. 

TRANSB 

111 

CLJ 

CM-1  AT  STP 

TRANSB 

11? 

CLJ 

DE(I.IS)  - 

INVERSE  OF  MEAN  LINE-SPACING  PARAMETER,  OR  THE 

TRANSB 

113 

CLJ 

EFFECTIVE  LINE  DENSITY,  LlNES/(CM-l) 

TRANSB 

114 

CLJ 

TRANSB 

115 

304 


c 

CL.' 

CLJ 

CLJ 

CLJ 

CLJ 


c 

CLJ 


CLJ 

CLJ 

CLJ 

CLJ 


CLJ 

CLJ 


DIMENSION  500(10,10).  OEI(IO.IO),  S(IO.IO).  DE(lO.lO) 

DIMENSION  WLO  8N(1),  HHI  BN(1),  TFLAG  BN(1) 

COMCN  QNAREA,  QWAREA(IO),  QFREHO,  OMDTST,  QNINKS,  QZSIZE, 

1  QNZBLK,  QZHEAD,  QC0UNT(30).  00SI2£(10),  QNSIZE,  QLUNIT(IO), 

2  QERLUN,  QFBITS(2,10),  0(1) 

EQUIVALENCE  (  Q,  IQ  } 

DIMENSION  10(1) 

COMMON  /  XYZCOM  /  ITMTE,  LTMTE.  NS,  HSHELL(81),  TS(81),  PS(81), 

1  XNSPEC(81,10).  UUO.10,2),  UP;iO,10,2),  IWOLS, 

2  FACT 
C0(*ON  /  OPTION  /  TRNSOPT 

**  MOTE  *  WE  WREE  WORDS  WLO  BN,  WHI  BN,  AND  TFLAG  BN  ARE 
IN  REALITY  WORDS- 3,  -4,  AND  -6  IN  THE  GRC 
DICTIONARY  DATASET-B!  (NO.  115).  THEIR  SPELLING 
HERE  IS  AN  ARTIFACT  OF  THE  ORIGINAL  PREPARATION  Or 
WE  ROUTINE  BY  L.  EW'NG  OF  6ET. 

EQUIVALENCE  (  Q(3),  WLO  BN  ).  (  0(4),  WKI  BN  ), 

•  (  0(8),  TFLAG  BN  ) 

EQUIVALENCE  (  IWTE,  TAPIN  ),  (  LTMTE,  TAPOT  ) 


C 

CLJ 

CLJ 

CLJ 


INTEGER  TAPIN,  TAPOT 
LOGICAL  TRNSOPT 

THE  INITIALIZED  VALUES  OF  WE  NEXT  FOUR  PARAMETERS  WILL  BE 
RESET.  FOR  EXAMPLE,  WSL  AND  WSH  ARE  RESET  BY  DATA-FILE 
WAYENUM8ERS. 

DW  -  1.E10 
WDL  -  1.E10 
WSL  *  0. 

WSH  *  0. 

IBAND  -  0 

LINK  -  LBANO 

IF  (  TRNSOPT  )  GO  TO  13 


C 

C 

CLJ 

CLJ 

1 

CLJ 


SCAN  SPECTRAL  LIST  TO  OBTAIN  8AND  LIMITS  AMO  FINEST  RESOLUTION 
CALL  PREV  (  LINK,  NBN  ) 

IF(  NBN  .EQ.  0  )  GO  TO  11 

LINT.  WOPO-S  OF  GRC  PICTIONARY  0ATASET-8N  (NO.  114),  IS  LHV 
FOR  LIST  Of  BAND- INTERVAL  DATASETS-BI  (NO-  115). 

LINT  *  IQ(  NBN  *  4  ) 

DATASET  INDEX-J  IS  USED  FOR  SIMPLICITY  INSTEAD  OF  THE 
TRADITIONAL  INDCX-NB1  FOR  DATASET-BI . 

10  CALL  PREV  (  LINT,  J  ) 

IF (  J  ,E0-  0  )  GO  TO  9 

WE  ARGUMENT  3  IN  WE  CALL  TO  PUTORA  CAUSES  SORTING  WIW 
RESPECT  TO  WLO  BN(J). 

IF  (  TFLAG  BN(J)  .NE,  0.  )  CALL  PUTORA  (  IBAND,  J,  3  ) 

DW  *  AMIN1(  DW,  WHI  BN(J)  -  WLO  BN(J)  ) 

WDL  -  AM IN1(  WDL,  WLO  BN(J)  ) 

GO  TO  10 


11  OW 


SET  RESOLUTION  FOR  OUTPUT  FILE. 

CHOOSE  0.5  OF  WE  MINIMUM  DW,  BUT  WIWIN  5  TO  50  CM-1  IN  ANY 
EVENT. 

-  AMAXl  (  AMINK  .5  «  OW,  50.  ),  5.  ) 

INITIALIZE  VARIABLES  USED  BELOW.  DESPITE  SPELLING,  W  IS  WE 


TRANSB 

116 

TRAN  SB 

117 

TRANSB 

118 

TRANSB 

119 

TRANSB 

1Z0 

TRANSB 

121 

TRANSB 

122 

TRANSB 

123 

TRANSB 

124 

Tk'NSB 

125 

TRAhTB 

126 

TRANSB 

127 

TRANSB 

122 

TRANSB 

129 

TRANSB 

130 

TRANSB 

131 

TRANSB 

13? 

TRANSB 

133 

TRANSB 

134 

TRANSB 

135 

TRANSB 

136 

TRANSB 

137 

TRANSB 

138 

TRANSB 

139 

TRANSB 

140 

TRANSB 

14] 

TRANSB 

142 

TRANSB 

143 

TRANSB 

144 

TRANSB 

145 

TRANSB 

146 

TRANSB 

147 

TRANSB 

148 

TRANSB 

149 

TRANSB 

150 

TRANSB 

151 

TRANSB 

152 

TRANSB 

153 

TRANSB 

154 

TRANSB 

155 

TRANSB 

156 

TRANSB 

157 

TRANSB 

158 

TRANSB 

159 

TRANSB 

160 

TRANSB 

161 

TRANSB 

16? 

TRANSB 

163 

TRANSB 

164 

TRANSB 

165 

TRAN5B 

166 

TRANSB 

167 

TRANSB 

168 

TRANSB 

169 

TRANSB 

170 

TRANSB 

171 

TRANSB 

177 

30b 


cu 

SAVED- VALUE  OF  THE  LOW  END  OF  BAND. 

TRANS? 

173 

WH  ■=  WDL 

TRAN  SB 

174 

CLJ 

WOL  AND  WDH  ARE  THE  INITIALIZED  VALUES  OF  THE  LOW  AND  FiGH 

TRAN  SB 

175 

CLJ 

SIDES  OF  A  CONTINUOUS  OETECTOfi  RANGE. 

TRANSB 

176 

WOL  «  1  .£10 

transb 

177 

WDH  «  0. 

TRANSB 

175 

LAP  *  0 

TRANSB 

175 

LIMIT  -  IBAND 

TRANSB 

180 

c 

TRANSB 

181 

CLJ 

SCAN  BAND-LIMITS  LIST  (WHOSE  LHV-WORD  IS  LIMIT=IBAND)  FOR 

TRANSB 

18? 

CLJ 

SPECTRAL  COVERING. 

transb 

183 

12  CALL  NEXT  (  LIMIT,  J  ) 

TRANSB 

184 

IF  (  J  ,£Q.  0  '  GO  TO  7 

YRANSB 

185 

IF  (  TFLAG  BN{J)  .GE.  2.  )  LAP  =  LAP  ♦  1 

TRANSB 

186 

CLJ 

NOW  UPDATE  VALUES  OF  LOW  AND  HIGH  SIDES  OF  CONTINUOUS  DETECTOR 

TRANSB 

18? 

CLJ 

RANGE. 

TRANSB 

18? 

WDL  -  AMIN1(  WOL.  WLO  BN(J)  ) 

TRANSB 

189 

WDH  -  AN. AX  1  (  WDH,  WHI  BN(J)  ) 

TRANSB 

190 

IF  (  AMOD(  TFLAG  BN(JI,  2.  )  .EQ.  1.  )  LAP  *  LAP  -  1 

TRANSB 

191 

IF  (  LAP  .GT.  0  )  GO  TO  12 

TRANSB 

19? 

CLJ 

XSKIP  IS  NONZERO  ONLX  f  SPECTRAL  BANDS  HAVE  A  GAP  DETWEEN 

TRANSB 

193 

CLJ 

THEM. 

TRANSB 

194 

XSKIP  -  IFI X (  (  WDL  -  WH  )  /  OW  ) 

TRANSB 

195 

CLJ 

NOW  SET  the  LOWER  EDGE  OF  THE  NEW  RANGE  AFTER  THE  GAP. 

TRANSB 

196 

WH  -  WH  ♦  XSKIP  *  DW 

TRANSB 

197 

GC  TO  1 

TRANSB 

199 

C 

TRANSB 

199 

C 

SCAN  SPECTRAL  LIST  FOR  USER  DEFINED  TABLE  RESOLUTION 

TRANSB 

200 

CLJ 

THIS  BLOCK  OF  COD’NG  IS  USED  ON'  Y  FOR  TRNSOpT  =.TRUE. 

transb 

201 

13  CALL  PREY  (  LINK ,  NBN  ) 

TRW  SB 

W2 

IF (  NBN  .EO-  0  )  GO  TO  7 

TRANSB 

20? 

CLJ 

LINT.  WORD-5  OF  GRC  DICTIONARY  DATASET-BN  fNO.  1141,  IS  LHV 

TRANSB 

204 

CLJ 

FOR  LIST  Of  BAND-INTERVAL  DATASETS-B1  (NO.  115). 

TRANSB 

205 

lint  -  ;or  nbn  +  4  ) 

TRW  SB 

206 

14  CALL  PREV  (  LINT.  J  ) 

TRANSB 

207 

IF (  J  .EO.  0  )  GO  TG  13 

TRANS3 

208 

WDL  -  WLO  BN(J1 

TRANSB 

209 

WDH  -  WHI  8N(J) 

TRANSB 

210 

DW  =  WDH  -  WOL 

TRANSB 

211 

WH  «  WOL 

TRANSB 

21? 

IF  (  WDL  .LT.  USL  )  RtWIND  TAPIN 

TRANSB 

213 

IF  (  WDl  .LT.  WSl  )  WSH  -  0. 

TRANSB 

214 

IF  <  WDL  .LT.  WSL  )  WSL  *  0. 

TRANSB 

215 

C 

TRANSB 

216 

C 

GENERATE  COMPRESSED  TABLE 

TRANSB 

217 

1  WL  *  WH 

TRANSB 

218 

WH  =  WH  +  DW 

transb 

21° 

CLJ 

ZERO  THE  s  AND  DE  WRAYS. 

TRANSB 

220 

CALL  XMIT  f  -100,  0.,  S  1 

TRANSB 

??1 

CALL  XMIT  (  -100.  0.,  DE  ) 

TRANSB 

222 

CLJ 

OLAP  WILL  BE  ZERO  ON  THE  FIRST  PASS  AND  POSSIBLY  MANY  PASSES 

TRANSB 

223 

CLJ 

UNTIL  WSL.GT.Wl  . 

TRANSB 

224 

2  OLAP  -  FRACf  WL,  WH,  WSL,  WSH  ) 

TRANSB 

225 

IF  (  OLAP  .EQ.  0.  1  GO  TO  4 

TQ  AN  SB 

226 

C 

TRANSB 

227 

C 

ACCUMULATE  SPECTRAL  PARAMETERS 

IRAN  SB 

??B 

CLJ 

THE  FIRST  10  IS  FOR  10  TEMPERATURES  FOR  THE  FIRST  SPECIES, 

TRANSB 

229 

306 


cu 

NETT  10  FOR  SECOND  SPECIES,  ETC. 

TRANS? 

7  77 

DO  3  1*1,100 

TRAN  SB 

??i 

IF  (  OEI'1,1'  .EO.  0.  1  GO  TO  3 

TRANS? 

73? 

DEfl.l)  -  DEd.ll  ♦  OLA°  /  OEI(I.l) 

TRANSB 

733 

sd.ii  *  sd.n  ♦  ol4p  *  soon.n  >  deic.h 

TRANSB 

?3« 

3  CONTINUE 

TRANSB 

?3E 

CLJ 

ON  FIRST  PASS,  WILL  DROP  THROUGH  TEST.  WHEN  THE  TEST  IS 

TRANSB 

71? 

cu 

SATISFIED,  ENOUGH  DATA  WILL  HAVE  BEEN  ACCUMULATED  TO  COVER  THE 

TRANSB 

237 

cu 

WIDTH  OW. 

TRANSB 

??E 

A  IF  (  WSH  .S£.  WH  )  GO  TO  5 

TRANSB 

739 

c 

TRANSB 

240 

c 

BRING  IN  5  CH-1  TABLE  PLANE 

TRANSB 

?4  I 

CLJ 

NOTE  TOAT  FOR  A  BINARY  FILE  NO  FORHAT  IS  NEEDED.  READ 

TRANSB 

74? 

cu 

?♦{  { 10*101*10  !*?0?  WORDS  AND  STORE  IN  WSL,  WSH,  ETC. 

TRANSB 

243. 

READ  (TAP1N)  WSL,  WSH,  ((  SOD(I.IS),  1*1.10  1.  (  UCHI.IS),  1*1.10 

TRANSB 

244 

%  \  JS»1,10  ) 

TRANSB 

745 

cu 

NOTE  THAT  THE  EOF  FUNCTION  IS  USED  TO  TEST  FOR  AN  END-OF-FILE 

TRANSB 

746 

CLJ 

CONDITION  ON  UNIT  TftPIN  FOLLOWING  AN  UNF Oft  WATTED  RCAD.  2ER0 

TRANSB 

?V 

CLJ 

IS  RETURNED  IF  NO  ENO-OF-FILE  IS  ENCOUNTERED,  OR  A  NON-ZERO 

TRANSB 

749 

CLJ 

VALUE  IF  END-OF-FTLE  IS  ENCOUNTERED. 

TRANSB 

749 

IF  (  EOF(TAFIN)  .EO.  0.  I  GO  TO  2 

TRANSB 

750 

C 

TRANSB 

?.;i 

C 

COMPUTE  COMPRESSED  SPECTRAL  PARAMETERS 

TRANSB 

2S? 

5  DO  6  1*1,100 

TRANSB 

753 

IF  (  OE(I.l)  .EO.  0.  1  GO  TO  6 

TRANS? 

754 

DEC  1,1)  -  V.  /  DE (1,1) 

TRANSB 

255 

S(!,l'  -  SCI ,1)  *  DE'1,11 

TP«NSB 

756 

6  CONTINUE 

TRANSB 

757 

r 

TRANSB 

7BS 

c 

WRITE  COMPRESSED  TA8LE  PLANE 

TRANSB 

7£9 

WRITE  (TAPOT}  Wl .  WH,  ((  S'l.IS},  1*1,10  ),  (  DE(I.IS).  1*1,10  1. 

TRANSB 

7F0 

S  IS*1,10  ) 

TRANSB 

761 

CLJ 

THE  FOLLOWING  THREE  STATEMENTS  ARE  RELEVANT  ONLY  FOR  TRNSOF>T  = 

TRANSB 

76? 

CLJ 

. FALSE.  .  THE  PIR$T  WOH  IS  THE  HIGH  END  Of  THE  BAND .  IF  TEST 

TRANSB 

76  S 

CLJ 

IS  SATISFIED.  DO  NEXT  DW  IN  SAND.  THE  NEXT  TWO  STATEMENTS 

TRANSB 

764 

ClJ 

COMPRISE  AN  INITIALIZATION  JUST  LUCE  THAT  BEFORE  STATEMENT 

TRANSB 

765 

CLJ 

LABEL  1?,  OF  IMPORT  ONLY  FOR  TRNSOPT*. FALSE.  . 

TRANSB. 

766 

IF  (  WH  .LT.  WDH  -  .001  )  GO  TO  1 

TRANSB 

767 

WDL  *  1.E10 

TRANSB 

76S 

WOH  *  0. 

TRANSB 

760 

CLJ 

NOW  DO  NEXT  SPECTRAL  INTERVAL  IF  TRNSOPT*  .TRUE.  .  OTHERWISE, 

TRANSB 

770 

CLJ 

CONTINUE  WITH  SCAN  OF  THE  BAND-LIMITS  LIST. 

TRANSB 

771 

I.'f  TRNSOPT  )  GO  TO  14 

TRANSB 

777 

t  '  L 

GO  TO  12 

TRANSB 

773 

c 

TRANSB 

774 

c 

CLEAN  UP  AND  RETURN 

TRANSB 

776 

7  CALL  WI POUT  (  1BAND,  0  > 

TRANSB 

776 

ENDFILE  tapot 

TRANSB 

777 

REWIND  TAPOT 

TRANSB 

?7p 

REWtND  TAPIN 

TRANSB 

7  7R 

RETURN 

TRANSB 

790 

END 

TRANSB 

78! 

:so7 


SUBROUTINE  TRNSCO  (  RX.  RY,  RZ.  L8INT,  RADSW  ) 

TRNSCO 

2 

c 

TRNSCO 

3 

CIJ 

♦TRNSCO*  ESTABLISHES  THE  TRANSMITTANCE  ON  A  COMPOUND  PATH 

TRNSCO 

4 

c 

FROM  RX  TO  RT  TO  R Z  LOCATION  VECTORS. 

TRNSCO 

5 

CIJ 

TRNSCO 

6 

cu 

IF 

RADSW-.TRUE..  SUBROUTINE  ATMRAD  WILL  BE  CALLED  TO  PERFORM  A 

•TtNSCO 

7 

CLJ 

RADIANCE  CALCULATION.  IF  ONE  HANTS  RAOSW-.TRUE. ,  THEN  TRNSCO 

TRNSCO 

8 

cu 

SHOULD  BE  CALLED  WITH  ONLY  A  STRAIGHT  PATH  AND  NOT  A  COMPOUND  PATH 

TRNSCO 

9 

cu 

BECAUSE  NO  ACCOUNT  IS  TAKEN  OF  THE  SCATTERING  EVENT  AT  THE  POINT 

TRNSCO 

10 

CLJ 

RT 

TRNSCO 

11 

CLJ 

TRNSCO 

1? 

c 

TRNSCO 

13 

CLJ 

INPUT  PARAMETERS 

TRNSCO 

14 

CLJ 

ARGUMENT  LIST 

TRNSCO 

15 

CLJ 

RX(  I )  *  LOCATION  VECTOR  OF  POINT  X,  TYPICALLY  BUT  NOT 

TRNSCO 

16 

CLJ 

NECESSARILY  THE  DETECTOR,  CM 

TRNSCO 

17 

CLJ 

RY(  I )  =  LOCATION  VECTOR  OF  POINT  Y,  TYPICALLY  BUT  NOT 

TRNSCO 

18 

CLJ 

NECESSARILY  THE  SCATTERING  SITE,  CN 

TRNSCO 

19 

CLJ 

RZ(1)  -  LOCATION  VECTOR  OF  POINT  Z,  TYPICALLY  BUT  NOT 

TRNSCO 

20 

CLJ 

NECESSARILY  THE  SOURCE.  CN 

TRNSCO 

21 

CLJ 

(FOR  RX,  RT,  AND  RZ  1-1,3) 

TRNSCO 

22 

CLJ 

LBINT  •  WORD  NO.  5  (LHV)  IN  GRC  DATASET-BN  (NO.  114), 

TRNSCO 

23 

CLJ 

LIST  OF  BAND- INTERVAL  DATASETS  (BI). 

TRNSCO 

24 

CLJ 

STRICTLY.  LBINT  IS  THE  POINTER  (I.E.,  CONTAINS  THE 

TRNSCO 

25 

CLJ 

(0- ARRAY)  ADDRESS)  FOR  THE  LIST  HEADER  OF  THE 

TRNSCO 

26 

CLJ 

BAND-INTERVAL  DATASETS-BI  CORRESPONDING  TO 

TRNSCO 

27 

CLJ 

DATASET-BR. 

TRNSCO 

28 

CL  7 

RADSW  -  INITIALIZATION  SWITCH  FOR  ATMOSPHERIC  VOLUME 

TRNSCO 

29 

CLJ 

EMISSION  CALCULATION.  IS  SET  IN  INPUT  TO  DRIVER. 

TRNSCO 

30 

CLJ 

-  .TRUE.,  INCLUDE  CALL  (FROM  SUBROUTINE  TRNSCO)  TO 

TRNSCO 

31 

CLJ 

SUBROUTINE  ATH)AD 

TRNSCO 

32 

CLJ 

*  .FALSE..  BYPASS  CALL  TO  SUBROUTINE  ATYWAD  AND 

TRNSCO 

33 

CLJ 

PERFORM  TRANSMITTANCE  CALCULATION  WITHOUT  AIR 

TRNSCO 

34 

CLJ 

EMISSION 

TRNSCO 

3S 

CLJ 

DATASET  BI  (BAND- INTERVAL  OATASET.  NO.  11S) 

TRNSCO 

36 

CLJ 

Q( 1 )  -  BNLO  BI  -  LOW  WAVELENGTH  FOR  WAVELENGTH- BAND- INDEX 

TRNSCO 

37 

CLJ 

J.  HICRONS 

TRNSCO 

38 

CLJ 

Q(2)  «  BNHI  BI  «  HIGH  WAVELENGTH  FOR  WAVE LENGTH -BAND- 

TRNSCO 

39 

CLJ 

INDEX  J,  MICRONS 

TRNSCO 

40 

CLJ 

Q(3)  •  WlO  81  *  LOW  WAVENUMBER  FOR  WAVELENGTH-BAND- INDEX 

TRNSCO 

41 

CLJ 

J,  CM-1 

TRNSCO 

42 

CLJ 

0(4)  «  WHI  BI  *  HIGH  WAVENUMBER  FOR  WAVELENGTH-BAND- 

TRNSCO 

43 

CLJ 

INDEX  J,  CM-1 

TRNSCO 

44 

CLJ 

XYZCOM  COMMON 

TRNSCO 

45 

CIJ 

LTMTE  »  BINARY  FILE  CONTAINING  BAND-MODEL  PARAMETERS. 

TRNSCO 

46 

CLJ 

DfRIVEO  FROM  THE  5-(CM-l)-RESOLUTION  DATA.  (SEE 

TRNSCO 

47 

CLJ 

SUBROUTINE  TRANSB  WHERE  TAPOT  IS  EQUIVALENCE!)  TO 

TRNSCO 

48 

cLJ 

LTMTE.)  HERE  IN  SUBROUTINE  TRNSCO,  FILE  LTMTE  IS 

TRNSCO 

49 

CLJ 

REWOUND  FOR  USE  IN  SUBROUTINE  TRANS. 

TRNSCO 

50 

CLJ 

OPTION  C0FP40N 

TRNSCO 

61 

CLJ 

TRNSOPT  •  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  OF  MOLECULAR 

TRNSCO 

52 

CLJ 

TRANSMITTANCE  CALCULATION  (SEE  SUBROUTINES  TRANSB 

TRNSCO 

53 

CLJ 

AND  TRANS).  HERE,  TRNSOPT  IS  USED  ONLY  IN  THE 

TRNSCO 

54 

CLJ 

AftGLMtENT  LIST  FOR  THE  CALL  TO  SUBROUTINE  TRANS,  A 

TRNSCO 

55 

CLJ 

CALL  THAT  OCCURS  ONLY  IF  RADSW-FALSE.,  YWICH  IS 

TRNSCO 

56 

CLJ 

NOT  THE  CASE  FOR  THE  NBR  MODULE. 

TRNSCO 

57 

CLJ 

OUTPUT  PARAMETERS 

TRNSCO 

58 

303 


ClJ 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

ClJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 

CLJ 
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CLJ 

CLJ 

CLJ 

CLJ 

CLJ 
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•**  ***  TRN5CC 

DESCRIPTION  Of  THE  OUTPUT  REQUIRES  CARE.  TRNSCO 

1.  IN  THE  (RARE'  EVENT  THE  PATH  SHOULD  NOT  IN1  ER SECT  THE  TRNSCO 

ATMOSPHERE,  THEN  INITIALIZED  VALUES  Of  WCRD-5  (IF  RADSW- .  TRUE .  '•  TRNSCO 
,  WORD-7,  AND  WORD-8  Of  OATASE7-BI  ARE  EXPLICITLY  SET  HERE  IN  TRNSCO 
TRNSCO.  TRNSCO 

?.  IN  'HE  USUAL  EVENT  7HAT  THE  PATH  OOES  INTERSECT  the  ATMOSPHERE,  TRNSCO 
THERE  ARE  TWO  CASES  TO  CONSIDER.  TRNSCO 

2.1  RADSW=  .TRUE.  (APPLIES  TO  NBR  MODULE)  TRNSCO 

SUBROUTINE  ATHRAD  IS  CALLED  TO  EVALUATE  WORD-5,  -7.  -8  Of  TRNSCO 
OATASET-BI,  BUT  THIS  DATASET  IS  NOT  CALLED  HERE  IN  TRNSCO  AND  TRNSCO 
THUS  IS  NOT  EXPLICITLY  AVAILABLE  IN  TRNSCO.  TRNSCO 

7.7  RADSW*. FALSE.  (DOES  NOT  APPLY  TO  NBR  NODULE)  TRNSCO 

SUBROUTINE  AURAD  IS  NOT  CALLED.  HENCE  THE  CALLS  THAT  ATHRAD  TRNSCO 
HIKES  TO  GET  THE  TR ANSHITTANCE  CALCULATION  DONE  MUST  BE  HADE  TRNSCO 
HERE  IN  TRNSCO.  IN  THIS  CASE  WORD-7  AND  WORD-8  OF  DATASET-31  TRNSCO 
ARE  EXPLICITLY  AVAILABLE.  TRNSCO 

DEFINITIONS  OF  WORD-5,  -7,  AND  -8  OF  DATASET-SI  FOLLOW.  TRNSCO 

0(5)  *  BAGNO  BI  -  IN-BAND- INTERVAL  RADIANCE  (DUE  TO  TRNSCO 

ATHOSPHERIC  EMISSION)  OVER  THE  ENTIRE  TRNSCO 

PATH  LENGTH  (WHICH  SXRJID  HAVE  1-LEG  TRNSCO 
AND  NOT  2-LEGS) ,  W/(C**»?  SR  BAND-INT)  TRNSCO 

0(7)  *  TRANS  BI  -  PRODUCT  OE  NOLECULAR  AND  AEROSOL  TRNSCO 

TRANSHI TTANCES  OVER  THE  ENTIRE  PATH  TRNSCO 

LENGTH  TRNSCO 

Q(8)  *  IDSBX  BI  *  AEROSOL  TRANSMITTANCE  OVER  THE  ENTIRE  TRNSCO 
PATH  LENGTH.  TRNSCO 

***  NOTE  ***  THIS  IS  A  TEMPORARY  USE  OF  WORD- 3  (AND  NOT  TRNSCO 
THE  GRC  DICTIONARY  USE  OF  WORD-8).  HERE  IT  TRNSCO 
USED  TO  CARRY  INFORMATION  TO  SUBROUTINE  TRNSCO 

UPWELL.  TRNSCO 

QNCNC  C0W40N  TRNSCO 

NCNC  -  VARIABLE  SET  TO  NC.  SEE  COWNENT  ABOVE  /QNCNC/.  TRNSCO 

TRNSCO 

DIMENSION  DSC  100),  XFRACS(IOO),  INDI(IOO),  RX(3),  RY(3),  RZ(3),  TRNSCO 

1  TAUflO),  ABC ( 10)  TRNSCO 

TRNSCO 

COWON  ONAREA.  OWAREA(IO).  OFREHO.  QNDTST.  ONL*S,  QLSIZE,  TRNSCO 

1  ONZBIK,  QZHEAD,  QC0UNT(3C).  QOSIZE(IO),  QNSIZE.  OlUNlTdOl,  TRNSCO 

7  QERIUN.  0FBITS(?.10).  0(1)  TRNSCO 

COW*DN  /  XYZCOH  /  ITWTE,  LTHTE,  NS,  HSHElUSl),  TS(S1),  PSIBl),  TRNSCO 

1  XNSPEC(Bl.lO),  11(10.10,2),  UP(10.10,2).  NMOLS,  TRNSCO 

7  FACT  TRNSCO 

COWON  /  OPTION  /  TRNSOPT  TRNSCO 

COWON  QNCNC  AND  THE  LATER  STATEMENT  IN  WHICH  NCNC  IS  SET  TO  TRNSCO 

NC  ARE  ADDED  TO  FACILITATE  BEING  ABLE  TO  CALL  THE  SAI  TRNSCO 

UPWEllING  NATURAL  RADIATION  MODULE  WITH  ZER0-KILDMETER  TRNSCO 

ALTITUDE.  FOR  NQRE  INFORMATION  SEE  COW«EnTS  PRECEDING  LABEL  UINSCO 

NUH8ER  ??  IN  SUBROUTINE  UPWELL  OF  THAT  MODULE.  TRNSCO 

CWMON /  QNCNC/  NCNC  TRNSCO 

DIMENSION  BNIO  BI  (1 ).  BNHI  BI(1  ),  WtD  BK1),  WHI  Bid).  TRNSCO 

*  »SNO  Bid),  TFLAG  Bid),  TRANS  BI(1),  IDSBX  Bid)  TRNSCO 

EQUIVALENCE  (  Q(1 1 .  BNIO  BI  ),  (  0(2),  BNHI  BI  ),  TRNSCO 

•  (  Q(3),  WIO  BI  ),  (  Qf«>.  WHI  BI  ),  TRNSCO 

•  (  Q(5),  BKGND  BI  ),  (  0(6',  TFlAG  BI  ),  TRNSCO 

*  (  Q{7),  TRANS  BI  ),  (  0(8).  IDSBX  BI  )  TRNSCO 

TRNSCO 
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LOGICAL  RATS*.  FIRST,  TRNSCIPt,  LOGIC 

Ilf 

c 

I  1  T 

c 

OBTAIN  INTE&RAtion  list 

?*w 

1  IF 

NC  •  0 

TB*iSC? 

IIS 

CALL  STE°f  1  H,  OT,  NC,  05,  X5RAC5,  INPX  ' 

TRNko 

i  ?: 

CALL  STFPS  {  RY,  RZ.  Nr ,  OS,  XFRACS,  INOX  ' 

TRNSCO 

121 

NCNC  =  NC 

TRNSCO 

r?z 

IF!  NC  .GT.  11  SO  TO 

TRNSCO 

cu 

TP  NSC'' 

i?i 

cu 

TRNSCO 

125 

CLJ 

path  does  not  intersect  atmosphere.  thus,  only  certain 

TRNSCO 

l?f 

CLJ 

INITIALIZATIONS  AS;  PERFORMED  HERE  IN  LOOR-’O. 

TRNSCS 

1?? 

LINT  r  LBINT 

TRw  SCO 

10  CALL  PfiEVNL  (  LINT,  J  ) 

TRNSCO 

i?o 

IF  (  J  .EO.  C  1  RETlKN 

TRNSCO 

130 

IF (  R  AOSW  1  BAGNO  BI(J)  »  0. 

TRNSCO 

131 

TRANS  SIfJ'  =  1. 

TRVSZC 

133 

CLJ 

THE  FOLLOWING  A0C!tIONAL  INITIALIZATION  IS  AP»R0OR’ATE  WHEN 

TRNSCO 

133 

CLJ 

THE  SAI  NAniRAL  BACKGROUND  RADIATION  ICDULE  IS  CALLED  WITH 

TPNSC? 

131 

CLJ 

ZERO-K  ILOHC'ER  ALTITl<Dr. 

TRNSCO 

1  35 

CALL  XM1T  (-1.1. , I0S8*  BI(J)I 

TRNSCO 

13f 

GO  TO  10 

TRNSCO 

13’ 

CLJ 

TPs SCO 

135 

CLJ 

TRNSCO 

139 

C 

PATH  INTERSECTS  ATNO SPHERE 

n>HSCC: 

140 

CLJ 

SET  LOGIC  for  FIRST  call  to  AO*AD  an?  FIRST  FOR  FIRST  CALL 

TRNSCO 

141 

CLJ 

TO  path.  SET  FILPOS  an?  REWIND  FILE  LTVTE  FOR  USE  IN  TRANS. 

^SSCO 

H? 

JO  LOGIC  •  .TRUE. 

trnsc’ 

1«? 

FIRST  «  .TRUE. 

TRnSCC 

in 

FILPOS  -  1.E4 

H5 

REWIND  LTMTE 

DO  30  1=1.  NC 

TRNSCO 

U’ 

CLJ 

RECALL  that  OSfNC+11  =  -1.0  AND  Ths=  NC-1  *  NO"?.ER  OF  PAT» 

7**SCC 

CLJ 

SEGMENTS. 

TPs  SCO 

119 

IF(  DS!  1-1 '  .LT.  0.  '  GO  TO  30 

-pssco 

150 

C 

INTE&RAtE  path  PROPERTIES 

7T?SSTC 

1‘1 

CALL  PATH  t  FIRST,  INDY'!',  OS'!*!'.  XFRACSfM  ' 

TRNSCO 

153 

z 

thermal  emission  on  request 

TRNSCO 

If  7 

CLJ 

"■*  C ACTION  *** 

TRNSCO 

i'i 

CLJ 

F  SUBROUTINE  TRNSCO  IS  EXERCISED  ON  A  COMPOUND  PATH  WI*H 

TRNSCO 

155 

CLJ 

RAOSW=  -TRUE . ,  THE  TR ANS-ITTANCE  CALCULA’ION  WILL  BE  CORRECT 

TRNSCO 

15C 

CLJ 

BUT  THE  RADIANCE  CALCULATION  WILL  BE  INCORRECT  BECAUSE  NO 

TRNSCO 

150 

CLJ 

ACCOUNT  HAS  BEEN  TAKEN  OF  the  SCA^rR;^  even'  A’  RY. 

’CO 

IF  {  RAPSW  I  CALL  AT»W  AD!  LOGIC.  INDK'Il,  XFRACS!  I ) ,  OS!  1*1 ) . 

TRNSCO 

i  5s 

*  LBINT  1 

to  s  r 

if: 

30 

CONTINUE 

TRNSCO 

IC’l 

CLJ 

IN  NBR  NODULE,  P AOSW=  .TRUE . ,  SO  WE  ARE  THROUGH  WITH  SUBROUTINE 

TPS  SCO 

if  r 

CLJ 

TRNSCO. 

TPsSC? 

163 

IF  (  RADSW  I  RETURN 

TVSSCC 

lfl 

CLJ 

TPs  SO  ^ 

155 

CL  v? 

**********************************  ***  *  *  ********** 

TRNSCO 

CL  3 

CLJ 

REMAINING  PORTION  Of  THIS  ROl'TiNE  IS  N0T  USED  IN  the 

1*C 

CLJ 

STANDARD  »??;  OF  OPERATING  ’hE  NBR  MODULE  w;th  RADSW  .TRUE  , 

^sscr 

1 

CLJ 

‘  p  **  - 

CLJ 

ZERO  FIRST  HALVES  OF  THE  U  AND  L'P  ARR A* S. 

■tjss;; 

CAiL  Xm;t  -IOC,  0..  .  1 

tbsT-C'v 

'?? 

'J 


1 

<1 


CALL  XMIT  (  -100.  0..  UP  ) 

TRNSCO 

173 

CL  J 

SCAN  SPECTRAL  BAND- INTERVAL  LIST. 

TRNSCO 

174 

LINT  -  LBINT 

TRNSCO 

175 

40 

CALL  PREVNL  (  LINT,  J  ) 

TRNSCO 

176 

If  (  J  .£0.  0  )  RETURN 

TRNSCO 

177 

WL  •  WLO  BI(J) 

TRNSCO 

178 

WH  =  WH1  B I  ( J ) 

TRNSCO 

179 

CLJ 

SET  MEAN  WAVELENGTH  FOR  CALL  TO  AEROSOL. 

TRNSCO 

180 

W  =  0.5*(WL+WH) 

TRNSCO 

181 

NAVEL  =  1.E4/W 

TRNSCO 

18? 

C 

obtain  TRANSMISSION  for  each  spectral  INTERVAL 

TRNSCO 

183 

CU 

GET  MOLECULAN  TRANSMITTANCE  AND  TEMPORARILY  CALL  IT 

TRNSCO 

184 

CLJ 

TRANS  BUJ). 

TRNSCO 

185 

CALL  TRANS  (  10,  1.  0(1, 1,2).  UPd.l.Z),  XI,  WL,  WH,  TAU,  ABC, 

TRNSCO 

186 

*  TRANS  BIfJ),  TRNSOPT,  FILPOS  ) 

TRNSCO 

187 

CLJ 

INITIALIZE  THE  AEROSOL  TRANSMITTANCE  TOST 

TRNSCO 

188 

TOST  =  1. 

TRNSCO 

189 

CLJ 

GET  THE  ALTITUDE  AT  THE  FIRST  POINT  P  ALONG  THE  TRANSMITTANCE 

TRNSCO 

190 

CLJ 

PATH. 

TRNSCO 

191 

LI  *  INDX(l)  $  L2  *  INDX ( 2) 

TRNSCO 

19? 

HSP  =  XFRACS(l)  *  HSHELL(Ll)  +  ( 1 . -XFRACSfl ) )  *  HSHELL(LZ) 

TRNSCO 

193 

CALL  AEROSOL  !  HSP,  WAVEL,  XKSCA,  XKABS,  GBAR  } 

TRNSCO 

194 

CLJ 

XKEXTP  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  AT  POINT  P,  1/CM 

TRNSCO 

195 

XKEXTP  *  XKSCA  +  XKABS 

TRNSCO 

196 

00  50  1=1, NC 

TRNSCO 

197 

if  ;  osu+n  .LE.  0.  )  GO  TO  60 

TRNSCO 

198 

LI  =  INOX(I) 

TRNSCO 

199 

L2  =  INDX( 1*1 1 

TRNSCO 

200 

CLJ 

GET  THE  ALTITUDE  AT  POINT  Q  ALONG  THE  TRANSMITTANCE  PATH. 

TRNSCO 

201 

F'SO  -  XFRAC5(l+l)  *  HSHELLfL?)  ♦  (  1.  -  XFRACSU+l)  )  *  H SHELL! Ll I 

TRNSCO 

20? 

CALL  AEROSOL  (  HSQ.  WAVEL.  XKSCA,  XKABS,  GBAR  ) 

TRNSCO 

203 

CLJ 

XKEXTO  IS  THE  AEROSOL  EXTINCTION  COEFFICIENT  AT  POINT  Q,  1/CM 

TRNSCO 

204 

XKEXTQ  =  XKSCA  +  XKABS 

TRNSCO 

205 

CLJ 

FIND  THE  MEAN  AEROSOL  EXTINCTION  COEFFICIENT  OVER  THE  PATH 

TRNSCO 

206 

CLJ 

ELEMENT  CSfI+1 )  B'  INTEGRATING  THE  LOGARITHMICALLV- 

TRNSCO 

207 

CLJ 

INTERPOLATEO  VALUE  OT  THE  EXTINCTION  COEFFICIENT  OVER  05(1+1) 

TRNSCO 

208 

CLJ 

AND  DIVIDING  BY  DSlI+1). 

TRNSCO 

209 

XKEXT  *  ACCUM!  2,  0.,  05(1+1),  XKEXTP,  XKFXTJ,  0.,  DSU+l)  )  / 

TRNSCO 

210 

+  0S(  I  +1 J 

TRNSCO 

211 

CLJ 

TOST  IS  THE  AEROSOL  TRANSMITTANCE  FROM  THE  START  OF  THE  PATH 

TRNSCO 

21? 

CLJ 

TO  THE  BACK  OF  ELEMENT  DS ( 1+1 ) 

TRNSCO 

213 

TOST  =  TOST  *  EXP(  -XKEXT  •  OSC.+l)  I 

TRNSCO 

214 

CLJ 

RESET  EXTINCTION  COEFFICIENT  OF  MEW  POINT  P  TO  THAT  AT  THE 

TRNSCO 

215 

CLJ 

old  point  o. 

TRNSCO 

216 

XKEXTP  =  XKEXTQ 

TRNSCO 

217 

50  CCNTtN'JE 

TRNSCO 

218 

CLJ 

IRAN 5  BI(J)  IS  NOW  RESET  TO  BE  THE  PRODUCT  OF  THE  MOLECULAR 

TPNSrO 

21 9 

CLJ 

TRANSMITTANCE  FOR  ALL  THE  SPECIES  AND  THE  AEROSOL 

TRNSCO 

220 

CLJ 

TRANSMITTANCE,  EACH  FOR  THE  ENTIRE  PATH. 

TRNSCO 

221 

60  TRANS  BKJl  ■  TRANS  B!(J)  *  TOST 

TRNSCO 

??? 

CLJ 

PRESERVE  THE  AEROSOL  TRANSMITTANCE  BY  SETTING  ID5SX  BI(J). 

TRNSCO 

223 

CALL  XMIT  ( 1  .TOST,  IDSBX  BKJ)) 

TRNSCO 

2?  4 

GO  TO  40 

TPNSCO 

225 

END 

TRNSCO 

226 

ill 
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subroutine  unitv  (  vx,  vxhat  ) 


SUBROUTINE  UNITV  RETURNS  THE  UNIT  VECTOR  VXHATM-3)  ALONG 
THE  VECTOR  VX(l-3). 

DIMENSION  VX(3),  VXNAT(3) 

CALL  VLIN  (  VXHAT.  1 ,/SORT(OOT( VX, VX) ).  VX,  0.  ,  0.  ) 

RETURN 

END 


SUBROUTINE  UPWELL  (  MSM.DO.W.DW.SPCULR.LBINT.JBAND  ) 

SUBROUTINE  UPWELL,  FOR  A  POINT  V  AT  EACH  OF  A  SET  OF  NALTJ 
ALTITUDES  ABOVE  A  GIVEN  GEOGRAPHIC  POSITION,  SPECIFIED  IN 
UPWELS  COMMON  (UPWLAT.UPWlON.UPWALT)  AND  CHARACTERIZED  BY 
MATERIAL  MSM  AND  PROPERTY  DD(MSNI),  COMPUTES  THE  NATURAL 
UPWELLING  SPECTRAL  RADIANCE  DIRECTED  TOWARD  POINT  V  FROM 
POINTS  P  LOCATED  ON  THE  EARTH'S  SURFACE  WITH  RESPECT  TO  POINT 

V  AT  NNA01R  REPRESENTATIVE  NADIR  ANGLES  AND  NAZI  REPRESENTA¬ 
TIVE  AZIMUTH  ANGLES.  THIS  UPWELLING  RADIANCE,  UPRAD( 1 . J,K,L) , 
INCLUDES  CONTRIBUTIONS  FROM  (1)  AIR  EMISSION  BETWEEN  POINTS 

V  AND  P.  (2)  SURFACE  EMISSION  AT  POINT  P.  AND  13)  SURFACE- 
REFLECTED  SOLAR  RADIATION  AT  EACH  POINT  P.  VALUES  OF  THE 
RADIANCE  UPRADl I , J,K,L)  ARE  AVERAGED  OVER  AZIMUTH  ANGLES  TO 
GIVE  UPRAOA(I.J.L)  AND  OVER  NADIR  ANGLES  TO  GIVE 

UPRADNl I.L.OBAND). 

***  NOTE  ***  SEE  COMMENTS  GIVEN  UNDER  OUTPUT  PARAMETERS  FOR 

***  ***  THE  DIFFERENT  MEANING  OF  UPRADNl I ,L .JBAND)  IN 

***  ***  The  GRC  AND  SAI  VERSIONS. 

THE  INCLUSION  OF  NATURAL  CLOUDS  COMPLICATES  THE  MODELING.  NO 
ATTEMPT  IS  MADE  TO  INCLUDE  THE  DETERMINISTIC  CLOUD  SUBMODEL. 
THE  STATISTICAL  CLOUD  SUBMODEL  IS  INCLUDED  ONLY  FOR  ALTITUDES 
ZKM  EQUAL  TO  OR  GREATER  THAN  THE  HIGHEST  ALTITUDE  (12  KM)  OF  A 
CLOUD  IN  THAT  SUBMODEL.  THE  GENERAL  PROCEDURE  IS  TO  FIRST 
CONSIDER  A  GIVEN  ALTITUDE.  NADIR,  AND  AZIUJTH.  WITH  THE  AIR 
EMISSION.  ARCVA(IKM.O.L).  ALONG  THE  LINE-OF-SIGHT  (LOS)  ABOVE 
12-KM  ALTITUDE  SERVING  AS  A  BASE  VALUE,  WE  OBTAIN  A 
DISTRIBUTION  FUNCTION  FOR  THE  ADDITIONAL  RADIANCE 
CORRESPONDING  TO  CLOUD-FREE-  AND  CLOUDY-IOS  EXTENDING  BELOW 
12-KM  ALTITUDE.  BECAUSE  THERE  ARE  159  CLOUD  CONFIGURATIONS  IN 
THE  STATISTICAL  CLOUD  MODEL,  THIS  DISTRIBUTION  FUNCTION  HAS 
160  MEMBERS  FOR  NIGHTTIME  AND  161  MEMBERS  FOR  DAYTIME... 

159  FOR  CLOUD-TOP  EMISSION  AND  (IF  DAYTIME) 
CLOUD-REFLECTED  SOLAR  RADIATION 
1  FOR  EARTH'S  SURFACE  EMISSION  AND  AIR  EMISSION  BELOW 
12-KM  ALTITUDE  (FOR  A  1-LEG  CLOUD-FREE  LOS) 

1  FOR  EARTH’S  SWEACE  EMISSION,  AIR  EMISSION  BELOW  12- 
KM  ALTITUDE,  AND  (IF  DAYTIME)  GROUND-REFLECTED  SOLAR 
RADIATION  (FOR  A  2-LEG  CLOUD-FREE  LC5,  OBTAINING  IN 
DAYTIME) 

THE  LAST  TWO  MEMBERS  ARE  THE  WEIGHTED  CONTRIBUTIONS  FOR  CLOUD- 
FREE-LOS  CONDITIONS.  (OWING  TO  CERTAIN  SIMPLICATIONS  MADE 
IN  THE  CLOUD  MODELING,  THERE  ARE  ACTUALLY  ONLY  9  AND  NOT  159 
DISTINCT  VALUES  IN  THE  DISTRIBUTION  FOR  A  ClOUDY-EOS.)  HAVING 
DETERMINED  THE  DISTRIBUTION  FUNCTION  FOR  A  GIVEN  LOOK 
DIRECTION  FROM  POINT  V,  WE  FORM  THE 

INTEGRAL  DISTRIBUTION  AND  COMPUTE  SELECTED  PERCENTILES  (XXX= 
10,25,50,90,100)  OF  THE  INTEGRAL  DISTRIBUTION,  RXXX(K,L),  AT 
IMPLICIT  ALT.-IKM,  IMPLICIT  NAD1R-J,  AND  EXPLICIT  AZIMUTH-K. 
VALUES  OF  RXXX(K.L)  ARE  AVERAGED  OVER  AZIMUTH  ANGLES  TO  GIVE 
RXXXA( 1KM, J,L) .  VALUES  OF  ARCVAf IKM, J,Ll  AND  RXXJAl !KM, J,L ) 
ARE  AVERAGED  OVER  NADIR  ANGLES  TO  GIVE  ARrvwf  1  km  ,  [ 1  AND 
RXXXN( IKM.L),  RESPECTIVELY. 
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UPWEIL 
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UPWELL 
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24 
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UPWELL 
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UPWELL 
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UPWELL 
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UPWELL 

34 

UPWELL 

35 

UPWELL 

36 

UPWELL 

37 

UPWELL 

38 

UPWELL 

39 

UPWELL 

40 

UPWELL 

41 

UPWELL 

4? 

UPWELL 

43 

UPWELL 

44 

UPWELL 

45 

UPWELL 

46 

UPWELL 

47 

UPWELL 

48 

UPWELL 

49 

UPWELL 

50 

UPWELL 

51 

UPWELL 

5? 

UPWELL 

53 

UPWELL 

54 

UPWELL 

55 

j  12 


***  NOTE  ***  SINCE  THE  INCLUSION  OF  THE  INDEX  JBAND  HAS  A 
LATE  CHANGE  (MARCH  1980),  HE  ELECTED  NOT  TO  MODIFY  THE  ARRAYS 
ARCVN(IKM.L)  AND  RXXXN(IKH.L)  TO  PROVIDE  FOR  AN  EXPLICIT 
DEPENDENCE  ON  THE  INDEX  JBAND  AS  HE  DIO  FOR  THE  ARRAY  UPRADN ( I 
,L, JBAND).  THIS  LIMITATION  KJST  BE  REMEMBERED  AND  REMOVED  IF 
JBAND. GT.l  AND  IF  CLOUDS  ARE  INCLUDED,  UNLESS  ONE  IS  CONTENT 
TO  ADOPT  THE  GRC  DEFINITION  OF  UPRADN( I, L, JBAND) . 

NOTE  THAT  IT  WOULD  PROBABLY  BE  FORE  CONCEPTUALLY  SATISFYING  IF 
ONE  COULD  PERFORM  AZIMUTH-  AND  NADIR-AVERAGES  FOR  EACH  OF  THE 
CLOUD  CONFIGURATIONS,  SO  THAT  ONE  COULD  END  UP  WITH  A 
DISTRIBUTION  FUNCTION  AT  A  GIVEN  ALTITUDE  INSTEAD  OF  AVERAGED 
PERCENTILE-VALUES.  SUCH  A  PROCEDURE  HAS  NOT  FOLLOWED. 
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c 

UPHELL 

70 

c 

NOTE  THAT  THE  NATURAL  CLOUD  MODEL  DOES  NOT  INCLUDE  AIR 

UPHELL 

71 

c 

EMISSION  BETWEEN  CLOUD  TOPS  AND  12-KM  ALTITUDE. 

HENCE.  SUCH 

UPHELL 

7? 

c 

AIR  EMISSION  IS  NOT  INCLUDED  HERE.  EITHER. 

UPHELL 

73 

CCC 

UPHELL 

74 

CC 

THE  UPWELLING  NATURAL  RADIATION  K3DEL 

(23C)  HAS 

NOW  BEEN 

UPHELL 

75 

cc 

INTEGRATED  WITH  THE  FOLLOWING  MODELS. 

•  .  . 

UPHELL 

76 

CC 

AMBIENT  ATKJSPHERE 

SAI/IJ 

UPWELL 

77 

rc 

ATMOSPHERIC  AEROSOLS 

1C. 19. 1C 

VI 

UPHELL 

78 

cc 

NATURAL  CLOUDS 

ID. 19. ID 

SAI/PA 

UPHELL 

79 

cc 

ATMOSPHERIC  THERMAL  EMISSION 

208 

get 

UPHELL 

80 

cc 

EARTH  SURFACE  CHARACTERIZATION 

23A 

SAI/LJ 

UPWELL 

81 

cc 

EARTH  SURFACE  RADIANCE 

23B 

SAI/LJ 

UPWELl 

8? 

cc 

SOLAR  RAOIATION 

23E 

SAI/LJ 

UPHELL 

83 

cc 

MOLECULAR  TRANSMITTANCE 

?4D 

GET 

UPHELL 

84 

CCC 

UPWELL 

85 

C 

INPUT  PARAMETERS 

UPWELL 

86 

c 

ARGUMENT  LIST 

UPHELL 

87 

c 

MSM  -  INDEX  FOR  CATEGORY  OF 

Surface  material  (see 

UPWELL 

88 

SUBROUTINE  ESUAF  FOR  DEFINITIONS)  UPHELL  89 

DO  -  ADDITIONAL  DESCRIPTOR  FOR  SELECTED  SURFACE  UPHELL  90 

MATERIAL  (SEE  SUBROUTINE  ESURF  FOR  DEFINITIONS)  UPHELL  91 

HU  -  ARRAY  OF  CENTRAL  WAVENUMBERS,  CM-1  UPHELL  9? 

DU  -  ARRAY  OF  WAVENUMBER- INTERVAL  WIDTHS,  CM-1  UPHELL  93 

SPCULR  -  LOGICAL  PARAMETER  UPWELL  94 

-  .TRUE.  COMPUTE  COORDINATES  OF  SPECULAR  UPHELL  95 

REFLECTION  POINT  ON  A  SMOOTH  UPHELL  96 

HORIZONTAL  HATER  SURFACE.  UPHELL  97 

■  .FALSE.  DO  NOT  COMPUTE  COORDINATES  OF  SPECULAR  UPHELL  98 

REFLECTION  POINT.  UPHELL  99 

LBINT  -  WORD  NO.  5  (LHV)  IN  GRC  DATASET-BN  (NO.  114),  UPHELL  100 
LIST  OF  BAND-INTERVAL  DATASETS  (BI).  UPHELL  101 

STRICTLY,  LBINT  IS  THE  POINTER  (I.E.,  CONTAINS  UPWELL  10? 

THE  (Q-ARRAY)  ADDRESS)  FOR  THE  LIST  HEADER  OF  UPHELL  103 

THE  BAND- INTERVAL  DATASETS-BJ  CORRESPONDING  TO  UPHELL  104 

DATASET-BN.  UPHELL  105 

JBAND  -  INDEX  FOR  LIST  OF  (BROAD)  WAVELENGTH  BANDS  UPHELL  106 
AtRSOL  COW40N  UPWELL  107 

TASP(L)  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  RAY  TO  UPWEl  L  108 
POINT  P  ON  GROUND.  L*1,NWAVEJ  UPHELL  109 

TASC(L)  -  AEROSOL  TRANSMITTANCE  FOR  INCOMING  SOLAR  RAY  TO  UPWELL  110 
POINT  C  AT  1Z-KM  ALTITUDE.  L-l.NWAVEJ  UPHELL  111 

0PTIN1  C0F9CN  UPHELL  11? 

RADSU  -  LOGICAL  PARAMETER.  IS  AN  INITIALIZATION  SWITCH  UPHELL  113 
FOR  ATMOSPHERIC  VOLUME  EMISSION  CALCULATION.  UPHELL  114 

IS  SET  IN  INPUT  TO  (DRIVER)  PROGRAM  DRVUPW  FOR  UPHELL  115 
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c 

subroutine  upwell. 

UPWELl 

116 

c 

*  .TRUE.  ,  INCLUDE  CALL  (FROM  SUBROUTINE  TRNSCOl 

UPWFLL 

117 

c 

TO  SUBROUTINE  ATMRAD 

UPWELL 

118 

c 

-  .FALSE.,  BYPASS  CALL  TO  SUBROUTINE  ATMRAD  AND 

UPUELL 

HR 

c 

PERFORM  TRANSMITTANCE  CALCULATION 

UPWELL 

120 

c 

WITHOUT  INCLUDING  AIR  EMISSION. 

UPWELL 

121 

c 

OPTION  COMMON 

UPWELL 

12? 

c 

TRNSOPT  -  LOGICAL  VARIABLE  AFFECTING  COMPLEXITY  OF 

UPWELL 

123 

c 

MOLECULAR  TRANSMITTANCE  CALCULATION  (SEE 

UPWELL 

1?4 

c 

SUBROUTINES  TRAN  SB  AND  TRANS).  IN  SUBROUTINE 

UPWELL 

125 

c 

UPWELL.  TRNSOPT  IS  USED  ONLY  IN  THE  ARGUMENT 

UPWELL 

126 

c 

LIST  FOR  CALLS  TO  SUBROUTINE  TRANS. 

UPWELL 

1?7 

c 

SOLAR P  COMMON 

UPWELL 

128 

c 

SOLLAT  -  SUBSOLAR  POINT  NORTH  LATITUDE,  RADIANS 

UPWELL 

129 

c 

SDLLON  -  SUBSOLAR  POINT  EAST  tONGITUDE,  RADIANS 

UPWELL 

130 

c 

SOLIRR(L)  U*1,NWAVEJ) 

UPWELL 

131 

c 

-  SOLAR  SPECTRAL  IRRADIANCE  AT  THE  TOP  OE  THE 

UPWELL 

13? 

c 

EARTH'S  ATMOSPHERE  AT  WAVENUMBER- INDEX  l 

UPWFLL 

133 

c 

WATTS  /  (  CM**?  CM-1  ) 

UPWFLL 

134 

c 

UPWELS  COMMON 

UPWELL 

135 

c 

UPWLAT  -  NORTH  LATITUDE  OF  POINT  V  AT  WHICH  UPWELLING 

UPWELL 

136 

c 

RADIANCE  IS  COMPUTED,  RADIANS 

UPWELL 

137 

c 

ttPWLON  -  EAST  LONGITUDE  OF  POINT  V  AT  WHICH  UPWELLING 

UPWELL 

138 

c 

RADIANCE  IS  COMPUTED,  RADIANS 

t'"WELL 

139 

c 

UPWAIT  -  SURFACE  ALTITUDE  OF  THE  SUB-V-POINT,  KM 

UPWFLL 

140 

c 

NALT(JBAND)  ( JBANO=l .NBANDS) 

UPWELL 

141 

c 

-  NUMBER  OF  ALTITUDES  ZKM  FOR  (RDOAD)  WAVELENGTH- 

UPWELL 

14? 

c 

BAND  INDEX  JBAND.  DEFINES  NALTJ. 

UPWELL 

143 

c 

ZKM(I.JBAND)  (1  =  1 , NALTJ,  JB."ND*1  .NBANDS) 

UPWELL 

144 

c 

-  ALTITUDES  OF  POiNT  V  ABOVE  UPWAL*  AT  WHICH 

UPWELL 

145 

c 

UPWELLING  RADIANCE  IS  COMPUTED.  KM 

UPWELL 

146 

c 

NNADIR  -  NUMBER  OE  NADIR  ANGLES  AT  POINT  V  AT  WHICH 

UPWELL 

147 

c 

UPWELLING  RADIANCE  IS  COMPUTED 

UPWELL 

1 48 

c 

NAZI  -  NUMBER  OF  AZIMUTH  ANGIES  AT  POINT  V  AT  WHICH 

UPWELL 

149 

c 

UPWFLLING  RAOIAi.CE  ;s  computed 

UPWELL 

150 

c 

NWAVE(JBANO)  (JBAND’l, NBANDS) 

UPWELL 

151 

c 

-  NUMBER  OF  WAVENUMBERS  AT  WHICH  THE  UPWELLING 

UPWELL 

15? 

c 

SPECTRAL  RADIANCE  IS  TO  BE  COMPUTED  FOR  (BROAD) 

UPWELL 

153 

c 

WAVELENGTH-BAND  INDEX  JBAND.  DEFINES  NWAVEJ. 

UPWELL 

154 

cc 

CLDEIG  -  INDEX  FOR  INCLUSION  Of  NATURAL  CLOUDS 

upwell 

155 

cc 

-  0.  IF  NATURAL  CLOUDS  ARE  NOT  INCLUDED 

'JPWELL 

156 

cc 

-  1.  IF  NATURAL  CLOUOS  ARE  INCLUDED 

UPWELL 

15? 

cc 

CLDFRFO  COFWON 

UPWELL 

158 

cc 

KMDDEL  -  INDEX  (1,11)  CHARACTERIZING  A  SET  OF  STATISTICAL 

UPWELL 

158 

cc 

AVERAGES  OF  CLOUD  COVERAGE  CATEGORIES,  CLOUD 

UPWELL 

160 

cc 

TYPES,  AND  NUMBER  OF  CLOUD  LAYERS  FDR  A  GIVFN 

UPWELL 

161 

cc 

GEOGRAPHIC  REGION.  CHARACTERIZES  A  SPECIFICATION 

UPWELL 

16? 

cc 

Of  CCOVER(  5,1 1 )  AND  CFREQ{17,4, 11 )  IN  BLOCK  DATA 

UPWELL 

IS’ 

cc 

FOR  KM0DEL*1 , 10.  JSEk  MUST  SUPPLY  HIS  OWN  DATA 

UPWELL 

164 

cc 

FOR  KMODEL -11. 

UPWELL 

16c 

cc 

CCOVER ( I CC .KMODEL )  ( ( ICC-1 ,5 > .KMODEL *1 , 11 ) 

UPWFLL 

If. 

cc 

-  FRACTIONAL  OCCURRENCE  FREQUENCY  OF  CLOUD  COVERAGE 

UPWELL 

167 

cc 

CATEGORY  ICC  FOR  GIVEN  KMODEL 

UPWELL 

168 

cc 

CIDWT  COMMON 

UPWELL 

168 

cc 

IDX  -  INDEX  FOR  LENGTH  OF  ARRAYS  RETURNED  FROM 

UPWELL 

170 

cc 

SUBROUTINE  CLDWT.  IDX  EQUALS  ISC  FOR  A  FULL  SF? 

UPWELL 

171 

cc 

OF  IS®  CLOUD-LAYER  AND  CLOUD-TYPE  CONFIGURATIONS 

UPWELL 

17? 

51 -I 


cc 

AND  IS  LESS  FOR  A  RESTRICTED  SET. 

UPWELL 

173 

cc 

WT{ I )  -  PROBABILITY  OF  CONFISCATION- 1 .  IDT  EQUALING  160 

UPWFLL 

174 

cc 

I -1 , IDX  CORRESPONDS  TO  A  CLOUD-FREE  LINE-OF-SIGHT. 

UPWELL 

175 

cc 

TRANS(I)  -  TRANSFER  COEFFICIENT  FOR  CONF IGURATION-I .  IN  NBR 

UPWELL 

176 

cc 

I-l.IDX-1  MODULE,  GEOMETRY  FOR  TRANSMISSION  THROUGH  CLOUDS 

UPWELL 

177 

cc 

IS  NOT  INCLUDED.  ONLY  GEOMETRY  FOR  REFLECTION  OF 

UPWELL 

17R 

cc 

SOLAR  RAY  FROM  THE  HIGHEST-LATER  CLOUD  IN 

UFWELL 

179 

cc 

CONFIGURATION-1  IS  INCLUDED.  ATTENUATION  IS 

UPWELL 

180 

cc 

INCLUDED  (WITHIN  THE  NATURAL  CLOUD  MODEL  1  TO  12- 

UPWELL 

131 

cc 

KM  ALTITUDE.  (l/SR) 

UPWELL 

182 

cc 

FMISS(I)  -  THERMAL  SPECTRAL  RADIANCE  FROM  THE  HIGHEST-LAYER 

UPWELL 

183 

cc 

I-l.IDX-l  CLOUD  IN  CONFIGURATION-!  WITH  ATTENUATION  COMPUTED 

UPWELL 

184 

cc 

(WITHIN  THE  NATURAL  CLOUD  MODEL)  TO  12-KM  ALTITUDE 

UPWELL 

185 

re 

(W/(KM**2  SR  MICRON') 

UPWELL 

186 

c 

QNCNC  COFMON 

UPWELL 

187 

c 

NCNC  -  A  VARIABLE,  SET  TO  NC  AFTER  THE  DOUBLE  CALL  TO 

UPWELL 

ISP 

c 

SUBROUTINE  STEPS  IN  SUBROUTINE  TSfiSCO,  EMPLOYED  TO 

UPWELL 

189 

c 

FACILITATE  BEING  ABLE  TO  USE  ZERO-KILOMETER 

UPWELL 

190 

c 

ALTITUDE  IN  THE  NBR  MODULE.  FOR  MORE  INFORMATION. 

UPWELL 

191 

c 

SEE  COMMENTS  PRECEDING  LABEL  NUMBER  22. 

UPWELL 

192 

c 

OUTPUT  PARAMETERS 

UPWELL 

193 

c 

***  NOTE  ***  UPRAD(K.L),  UPRADA(I,J,L),  AND  UPRADN(I,L. 

UPWELL 

194 

c 

J3AND)  ARE  CLOUD-FREE  RESULTS.  FOR  RESULTS  WHICH  ALSO 

UPWELL 

195 

c 

INCLUDE  CLOUD  EFFECTS  FOR  ALTITUDES  .GE.  12  KM, 

UPWELL 

196 

c 

USE  THE  CORRESPONDING  ARRAYS  RXXX(K.L).  RXXXA( IKM, J.L ) , 

UPWELL 

197 

c 

AND  RXXXN(IKM.L).  TO  THESE  ARRAYS  ONE  MUST  ADD, 

UPWELL 

19E 

c 

RESPECTIVELY.  THE  BhSE- VALUE  QUANTITIES  ARCVA( IKM.U.L ) , 

UPWELL 

199 

c 

ARCVA{  IKM,  J,L ) ,  AND  ARCVN(  IKM,  L  ) . 

UPWELL 

200 

c 

«**  NOTE  ***  IN  THE  GRC  VERSION,  FOR  ALTITUDES  EQUAL  TO 

'JP'xIFL  l 

20! 

c 

OR  GREATER  THAN  12  KM  AND  IF  CLOUDS  ARE  INCLUDED.  THE 

UPwll’. 

20,’ 

c 

ARRAY  UPRAON(  I  ,L , J8AND)  IS  RESET  AS 

UPWELL 

203 

c 

UPRADN(I,L,JBAND)  *  ROSON(IKM.L)  ♦  ARCVN( IKM.L)  , 

UPWELL 

204 

c 

WHICH  IS  TRANSFERRED  THROUGH  UPWELS  CO»MON  TO  (THE  GRC) 

UPWELL 

205 

c 

Subroutine  upwelt.  thus,  in  the  grc  version,  fop 

UPWELL 

206 

c 

ALTITUDES  ZKM.GE . 12-KM,  UPRADN  IS  NOT  THE  CLOUD-FREE 

UPWELL 

207 

c 

RESULT  BUT  THE  50-PERCENTILE  OF  THE  RADIANCE 

UPWELL 

208 

c 

DISTRIBUTION  FUNCTION  FOR  STATISTICAL  CLOUDS  (IF 

UPWELL 

209 

c 

INCLUDED  IN  THE  PROBLEM). 

UPWELL 

210 

c 

UPWELS3  COMMON 

UPWFLL 

211 

c 

UPRAD(K.L)  K'l.NAZI ,  L=1,NWAVEJ 

UPWELL 

212 

c 

(IMPLICITLY  I=1,NALTJ.  JM.NNAPIR) 

UPWELL 

213 

c 

(I-  AND  J-DEPENDENCE  IS  NOT  STORED,  SO  USER 

UPWELL 

214 

c 

MUST  PRINT  UPRAD(K.L)  IMMEDIATELY  AFTER 

UPWELL 

215 

c 

COMPUTATION  IF  HE  WANTS  TO  SEE  THEM). 

UPWELL 

215 

c 

CURRENTLY,  UPRAD(K,l!  AND  RXXX(K.L)  ARE  BEING 

UPWELL 

217 

c 

WRITTEN  IN  BINARY  FORM  ON  LOGICAL  UNIT  NO.  8, 

UPWELL 

218 

c 

FOR  ALL  APPROPRIATE  ALTITUDES  AND  NADIRS. 

UPWELL 

219 

c 

-  NATURAL  UPWELLING  SPECTRAL  RADIANCE  RECEIVED 

UPWFLL 

220 

c 

AT  POINT  V  (AT  ALTITUDE- I  ABOVE  SURFACE  MAT 'RL 

UPWELL 

221 

c 

MSM)  ALONG  A  RAY  DIRECTED  TO  POINT  P  ON 

UPWELL 

22? 

c 

EARTH'S  SURFACE  (AT  NADIR-.!  AND  AZIM'.rTH-K ), 

UPWELL 

223 

c 

WATTS/(CM«?  SR  CM- 1) 

UPWFLL 

2?4 

c 

UPRAPA(I,J,L)  I-l.NALTJ,  J-I.NNADIR,  L-l.NWAVEJ 

UPWELL 

225 

c 

-  THE  AZIMUTH- AVERAGED  VALUE  OT  UPRADfK ,L ) , 

UPWELL 

2?6 

c 

WATTS/(CM*»?  SR  CM-1) 

UPWELL 

22? 

c 

50RCE  COMMON  (SOLAR  COORDINATES  ARE  NEEDED  IN  SUBROUTINE 

LICwFL  L 

228 

c 

TRANSF  OF  THE  NATURAL  CLOUD  MODULE.) 

UPWELL 

2?9 

3  IS 
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NSORCE  -  NUMBER  OF  SOURCES.  SET  TO  1  IN  DATA  STATEMENT.  UPWELL  230 

HSORCE(l)  -  ALTITUDE  OF  SUN  (RSUH).  RSUN  SET  IN  DATA  UPWELL  231 

STATEMENT.  UPWELL  23? 

RSORCE(l)  -  RADIUS  OF  SOURCE.  TRUE  VALUE  FOR  SUN  IS  NOT  UPWELL  233 
RELEVANT  FOR  THIS  APPLICATION  IN  NATURAL  UPWELL  234 

BACKGROUND  RADIATION  MODULE.  SET  TO  0.0  IN  UPWELL  235 

DATA  STATEMENT.  UPWELL  236 

THETAS  -  C01ATITUOE  OF  SUBSOLAR  POINT,  DEGREES  UPWELL  237 

PHIS  -  EAST  LONGITUDE  OF  SUBSOLAR  POINT,  DEGREES  UPWELL  238 

TECTOfi  COWON  (USED  HERE  TO  POSITION  FICTITIOUS  DETECTOR  UPWELL  239 

AT  POINT  V)  UPWELL  2A0 

OETLAT  -  DETECTOR  NORTH  LATITUDE,  RADIANS  UPWELL  241 

DETLON  -  DETECTOR  EAST  LONGITUDE,  RADIANS  UPWELL  242 

DETALT  -  DETECTOR  ALTITUDE,  KM  UPWELL  243 

POSITN  COWON  UPWELL  244 

POSLAT  -  NORTH  LATITUDE  Of  POINT  P  AT  WHICH  LINE-OF-  UPWELL  245 

SIGHT  INTERSECTS  EARTH'S  SURFACE,  RADIANS  UPWELL  246 

POSLON  -  EAST  LONGITUDE  Of  POINT  P  AT  WHICH  LINE-OF-  UPWELL  247 

SIGHT  INTERSECTS  EARTH'S  SURFACE,  RADIANS  UPWELL  248 

POSALT  -  ALTITUDE  OF  POINT  P  AT  WHICH  LINE-OF-SIGHT  UPWELL  249 

INTERSECTS  EARTH'S  SURFACE,  KM  UPWELL  250 

C12LAT  -  NORTH  LATITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  UPWELL  251 

SIGHT  INTERSECTS  THE  12-KM  ALTITUDE  SURFACE,  UPWELL  252 

RADIANS  UPWELL  253 

CiaON  -  EAST  LONGITUDE  OF  POINT  C  AT  WHICH  LINE-OF-  UPWELL  254 

SIGHT  INTERSECTS  THE  12-KM  ALTITUDE  SURFACE.  UPWELL  255 

RADIANS  UPWELL  256 

C12ALT  -  ALTITUDE  OF  POINT  C  AT  WHICH  LINE-OF-SIGHT  UPWEL1  257 

INTERSECTS  12-KM  ALTITUDE  SURFACE.  KM  UPWELL  258 

UPWELS  COWON  UPWELL  259 

I  DAW  -  INDEX  FOR  DAYLIGHT  CONDITION  AT  SUB-V-POINT  UPWELL  260 

*  Ci  IF  SOLAR  ZENITH  ANGLE  .GT.  90  DEGREES  UPWELL  261 

-  1  IF  SOLAR  ZENITH  ANGLE  .LE.  90  DEGREES  UPWELL  262 

UPRADNJ I ,L,JBANO)  I-l.NALTO.  L-l.NWAVEJ,  JBAND»1 .NBANDS  UPWELL  263 

-  THE  NADIR-AVERAGED  VALUE  Of  UPRADAf I ,J.L),  UPWELL  264 

WATTS/ (CM**2  SR  CM-1)  UPWELL  265 

1KM  -  INDEX  FOR  NUMBER  OF  ALTITUDES  AT  WHICH  UPWELL  266 

CALCULATIONS  ARE  MADE  WHEN  CLOUDS  ARE  INCLUDED.  UPWELL  267 

(USED  IN  SUBROUTINE  SURRAD)  UPWELL  268 

UPWELS1  COWON  UPWELL  269 

ARCVA(IKH.J.L)  FOR  IKM.GE.l.  0*1,NNADIR,  UPWELL  270 

L-l.NWAVEJ  UPWELL  271 

-  WHEN  CLOUDS  ARE  CONSIDERED,  A  COMPONENT  OF  THE  UPWELL  27? 

UPWELLING  SPECTRAL  RADIANCE  RECEIVED  AT  POINT  V  UPWELL  273 

(AT  ALTITUDE-IKM),  FROM  AIR  EMISSION  ABOVE  12-KM  UPWELL  274 

ALTITUDE,  ALONG  A  RAY  DIRECTED  TO  POINT  P  ON  THE  UPWELL  275 

EARTH  SURFACE  (AT  NADIR-J  AND  INDEPENDENT  OF  UPWELL  276 

A7IMUTH-K),  WATTS/ (CM**2  SR  CM-1)  UPWF1 L  "7/ 

ARCVN(IKM.L)  FOR  IKM.GE.l.  L*1,MWAVEJ  UPWELL  278 

-  THE  NADIR-AVERAGED  VALUE  OF  ARCVA( IKM, J.L ),  UPWELL  279 

WATTS/ (CM**2  SR  CM-1)  UPWELL  280 

RXXX(K.L)  (XXX-10, 25, 50, 90,100)  UPWELL  281 

-  XXX  PERCENTILE  OF  THE  INTEGRAL  DISTRIBUTION  OF  THE  UPWELL  28? 

TOTAL  (INCLUDING  THAT  FROM  STATISTICAL  CLOUDS)  UPWELL  283 

NATURAL  UPWELLING  SPECTRAL  RADIANCE  RECEIVED  AT  UPWELL  284 

POINT  V  FOR  WAYENUMBER-L  (AT  IMPLICIT  ALTITUDE-IKM  UPWELL  285 

ABOVE  SURFACE  MATERIAL  MSM)  ALONG  A  RAY  DIRECTED  UPWELL  ?86 
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TO  POINT  P  ON  EARTH  SURFACE  (AT  IMPLICIT  NADIR-J 
AND  EXPLICIT  A2IMUTH-K),  WATTS/ f CM** 2  SR  CM-1) 
•♦NOTE  THAT  RXXX(K.L)  DOES  NOT  INCLUDE 

arcva( ikm  j  L ) . 

CURRENTLY*  UPRAD(X.L)  AND  RXXX(X,L)  ARE  BEING 
WRITTEN  IN  BINARY  FORM  ON  LOGICAL  UNIT  NO.  8. 
FOR  ALL  APPROPRIATE  ALTITUDES  AND  NADIRS. 
RXXXA(IKM, J,L)  OtXX-10. 25 .50,90, 100) 

-  THE  AZIMUTH- AVER  AGED  VALUE  OF  RXXX(IC.L), 

WATTS/(CM*«2  SR  CM-1) 

RXXXN(IKM.L)  (XXX-10.25,50,90,100) 

-  THE  NADIR-AVERAGED  VAlUE  OF  RXXXA(IXM.J.L), 

WATTS/ (CM**2  SR  CM-1) 

FLAGS  COMMON 

ITFLAG  -  FLAG  INDICATING  THE  DIURNAL  CONDITION  AT  POINT  V*. 
FOR  USE  BY  SUBROUTINE  CLDWT  IN  THE  NATURAL  CLOUD 
MODULE. 

■  0,  SUN  IS  BELOW  THE  HORIZON 
•  1,  SUN  IS  ABOVE  THE  HORIZON 
SAN DO  COMMON 

XS,  -  EARTH -CENTERED  CARTESIAN  COORDINATES  OF  THE  SUN. 
YS.  (KM) 

ZS 

XD,  -  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  THE 
ro,  FICTITIOUS  DETECTOR  AT  POINT  V. 

ZD  (XM) 

UL.  -  DIRECTION  COSINES  OF  POINT  P  FROM  POINT  V. 

VL. 

UL 

UPWELS2  COWAON 

JBANDl  -  SAME  AS  JBAND,  BUT  MADE  AVAILABLE  TO  SUBROUTINE 
SURRAD  TO  FACILITATE  PRINT. 


COMMON  QBLNKQ(89),  Q(l) 

EQUIVALENCE  (Q.IQ) 

DINENSION  IQ(1) 

DIMENSION  BNLO  BI(1),  BNHI  BI(1).WL0  BI(1),  WHI  BI(1), 

*  BKGND  BI(1),  TFLAG  81(1),  TRANS  BI(1),  IDSBX  81(1) 
***  SEE  SUBROUTINE  ATNRAO  FOR  DEFINITIONS  OF  DATASET  BI 

EQUIVALENCE  (  Q(l),  BNLO  BI  ).  (  Q(7).  BNHI  BI  ), 

*  (  0(3),  WLO  BI  ),  (  0(4).  WHI  BI  ), 

*  (  0(5).  BKGND  BI  ).  (  Q(6),  TFLAG  BI  ), 

*  (  0(7).  TRANS  BI  1,  (  0(8),  IDSBX  BI  ) 

DiMFwSION  RP( 3) ,RC(3) ,RV( 3) ,TAU( 10) ,OMEGAT( 13) ,WW[ 10) .DW( 10) 
DIMENSION  DD( 7 ) ,RAD(12 ) ,UPS(  10,10,11 ), UPPSdO.10.il ). 

t  UCS(IO.IO)  ,UPCS(10,10), 

i  UPV(IO.IO)  ,UPPV(10,10). 

S  UCV(IO.IO)  ,UPCV(I0,10). 

S  USPV(IO.IO)  ,UPSPV(10,10). 

i  U5CV( 10,10)  ,UPSCV(10,10) 

DIMENSION  TAPV( 10) ,TTPV{ 10) ,TTSPV(10) ,TMSPV( 10),AEPV(10) 
DIMENSION  TACVflO) ,TTCV( 10) ,TTSCV( 10) ,TMSCV( 10) , AECV( 10) 
DIMENSION  ABC (10) 

DINENSION  WTC(162) ,UPRAOC( 162),UPRDC1 (162) 

COWtON/OPTlON/  TRNSOPT 


COWAON  /  0PTIN1  /  RADSW 
C0*10N/  QNCNC/  NCNC 


UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 


287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 
34] 
34? 
343 
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COFWON/AIRSOL/  TASP(  10) ,TASC(10),TAFP(10)  AIRSCL  2 

COtHON/CtDFREO/  KMQDEL,CC0VER!5,11 ) ,CFREQ(17,4,11)  CLDFREQ  2 

COtWON/CLOVT/  IDX,WT(161 ), TRANS (161 ), EMI S5( 161 )  CLDBUG  1 

COMMON/ P0S1TN/  POSLAT , POSLON , POSALT , SPCLAT , SPCLON  P0S1TN  t 

1  ,C12LAT.C12LON,C12ALT  POSIT*  3 

COMMON  /SAHDD/  XS,Y$,ZS,XD,YD,ZD,UL.YL,WL  SANDDQ  2 

SAI’S  /SORCE/  DIFFERS  FROM  GRC'S.  24APR80  2 

COFWON/  SORCE/  NSORCE,HSORCE(l),RS0RCE(l), THETAS, PHIS  KOMATM  1 

COWON/ SOLARP/  SOLLAT,SOLLONtSOHRR(  10'  SOLARP  7 

COMMON/TECTOfi/  OETtA7,DETL0N,DETALT,0£TZ£N.0ETAZI(ll )  TECTOR  ? 

CO7W0N/UPWELS/  UPWALT,UPWL0N,UPWLAT,NALT(5 ) ,ZKM( 13,5 ) ,NNADIR,NAZI ,  UPWELS  2 

*  NWAVE(5) , I0AYV,CLDFLG,UPRADN(13, 10,5] ,UV(10 ,S) , 1KM,  UPWELS  3 

*  NBANDS  UPWELS  A 

COMM0N/UPWELS1/  UPWELS  5 

2  R010(6 ,10) ,R010A(6 ,10,10),R010N(6,10),  UPWELS  6 

3  R025(6,10),R025A(6.10,10),R025N(6,10),  UPWELS  7 

A  R050(6 ,10),R050A(6 ,10,10),R0S0N(6 ,10),  UPWELS  8 

5  R090(6,10),R090A(6.10,10),R090N(6,10),  UPWELS  9 

£  R100(6,10) ,RIOOA(6 ,10,10),R10GN(6 ,10)  UPWELS  10 

7  ,ARCVA(6,10,10),ARCVN(6,10)  UPWELS  11 

COW0N/UPVELS2/  JBAND1  XYZCOM  2 


COMM0N/UPWELS3/  UPRA0(6,10) ,UPfiADA( 13, 10,10) 

XYZCOM 

3 

COWON/  XYZCOM/  ITMTE,LTMTE,NS,HSHELL(81].TPX(81,12), 

XYZCOM 

4 

1  U(10.10,2),UP( 10,10, 2), NMOLS, FACT 

XYZCOM 

S 

C 

SAl'S  /FLAGS/  DIFFERS  FROM  GRC'S. 

24APR80 

1 

COtWON/  FLAGS/  ITFLAG 

FLAGS 

2 

LOGICAL  SPCULR.SPCLRX.RAOSW.TRNSOPT 

UPWEIL 

358 

DATA  PI. RE  /  3.1A1S92SS3S90.6.37103E+O3  / 

UPWELL 

357 

DATA  N SPECS, NTEMP  /  1U.10  / 

UPWELL 

3S8 

DATA  N SORCE,  RSORCE(i)  /  1,  0.0  / 

UPWELL 

359 

DATA  RSUN  /  1.49S979E+08  / 

UPWELL 

360 

ccc 

UPWELL 

361 

cc 

SET  J3AND1  IN  COWON  /UPWELS2/  TO  FACILITATE  SOME  PRINT  IN 

UPWELL 

362 

cc 

SUBROUTINE  SURRAD. 

UPWELL 

363 

JBAND1  ■■  JBANO 

UPWELL 

364 

ccc 

UPWELL 

365 

cc 

SET  VARIABLES  IN  TECTOR  COtflON  FOR  INITIAL  POSITION  OF 

UPWELL 

366 

cc 

DETECTOR  AT  SUBPOINT  V,  FOR  USE  IN  DETERMINING  THE  REFERENCE 

UPWELL 

367 

cc 

AZIMUTH  ANGLE. 

UPWELL 

368 

DETLAT  -  UPWLAT 

UPWELL 

369 

DETLON  ■  UPWLON 

UPWELL 

37  D 

DETALT  -  UPWALT 

UPWELL 

371 

cc 

SET  REFERENCE  AZIMUTH,  REFAZI,  TO  BE  THAT  OF  THE  SUBSOLAR 

UPWELL 

372 

cc 

POINT  WITH  RESPECT  TO  POINT  V  IF  SUN  IS  ABOVE  THE  HORIZON  AT 

UPWELL 

373 

cc 

SUBPOINT  V'  OR  ZERO  OTHERWISE. 

UPWELL 

374 

PIO?  *  Pl/2. 

UPWELL 

375 

REFAZI  *  0.0 

UPWELL 

376 

cc 

IS  SUN  ABOVE  THE  HORIZON  AT  SUBPOINT  V'? 

UPWELL 

377 

SINSIN  «  SIN ( DETLAT ) *SIN ( SOLLAT ) 

UPWELL 

378 

COSCOS  *  COS(DETLAT)*COS( SOLLAT) 

UPWELL 

379 

CSSOLZ  «  SINSIN  +  COSCOS*COS(OEaON-SOLLON) 

UPWEIL 

380 

IDAYV  *  0 

UPWELL 

381 

cc 

UPWELL 

38? 

cc 

WHEN  (A)  CORE  IS  PRESET  TO  NON-ZEROS  AND  (B)  SUN  IS  BELOW 

UPWELL 

383 

cc 

THE  HORIZON,  WE  NEED  TO  SET  THE  SOLAR  COORDINATES  TO  ARBITRARY 

UPWELL 

384 

cc 

VALUES  SO  THAT  SUBROUTINE  SGEOM  (CALLED  FROM  EMISSF,  CALLED 

UPWELL 

385 

cc 

FROM  CLDWT,  CALLED  FROM  UPHELD  WILL  NOT  ABORT  IN  TRYING  TO 

UPWELL 

386 
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cc 

COMPUTE  SOlFCE  GEOMETRY  EVEN  WHEN  ME  DON’T  WANT  IT. 

upwell 

387 

xs  ■=  o.  i  rs  *  o.  i  zs  -  o. 

UPWELL 

388 

cc 

UPWELL 

389 

IF (  CSS0CZ.LT. 0.0  )  GO  TO  10 

UPWELL 

390 

IOAYV  *  1 

UPWELL 

391 

cc 

DETERMINE  AZIMUTH  OF  SUBPOINT  S'  Of  SUN  BY  USIHG  A  MODIFIED 

UPWELL 

392 

cc 

HARC  SUBROUTINE  GEOREA.  NOTE  THAT  GEOREA  CALLS  A  HARC  ROUTINE 

UPWELL 

393 

cc 

GEOXYZ  WHICH  WE  HAVE  RENAMED  GEOTAN  TO  DISTINGUISH  IT  FROM 

UPWELL 

394 

cc 

THE  SAI  ROUTINE  GEOXYZ. 

UPWELL 

395 

DALTCM  -  1.0E+05*DETALT 

UPWELL 

396 

CALL  GEOREA(DALTCM.PI02-OETLAT.OETLON,0.0,PID2-SOLLAT,SOLLON, 

UPWELL 

397 

S  SR21,EL21,REFAZI) 

UPWELL 

398 

cc 

NOW  HAVE  REFAZI.  ALSO  HAVE  UNNEEDED  SR21  AND  EL21. 

UPWELL 

399 

cc 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  SUN  FOR  SGEOM. 

UPWELL 

400 

CALL  GEOXYZ (R5UN,S0LLAT,S0LL0N,XS,YS,ZS) 

UPWELL 

401 

cc 

SET  COORDINATES  OF  SUN  INTO  SORCE  CO*«N  FOR  TRANSF. 

UPWELL 

402 

HSORCE(l)  -  RSUN 

UPWELL 

403 

THETAS  •  (PID2-S0LLAT)*180./PI 

UPWELL 

404 

PHIS  «  S0LL0N*180./PI 

UPWELL 

405 

cc 

UPWELL 

406 

cc 

ZERO  ARRAYS  USPV,  UPSPV,  USCV,  AND  UPSCV  USED  LATER  TO 

UPWELL 

407 

cc 

PRESERVE  PATH  PARAMETERS  FOR  THE  PATHS  SPV  AND  SCV. 

UPWELL 

408 

CALL  XMIT  (  -100.  0.,  U  SPV  ) 

UPWELL 

409 

CALL  XMIT  (  -100.  0..  UPSPV  ) 

UPWELL 

410 

CALL  XMIT  (  -100.  0..  U  SCV  ) 

UPWELL 

411 

CALL  XMIT  (  -100,  0.,  UPSCV  ) 

UPWELL 

412 

cc 

UPWELL 

413 

10  CONTINUE 

UPWELL 

414 

cc 

UPWELL 

415 

cc 

SET  ALTITUDES  OF  ALL  POINTS  P  (TO  BE  VIEWED  FROM  POINT  V) 

UPWELL 

416 

cc 

EQUAL  TO  THE  SURFACE  ALTITUDE  OF  THE  SUB-V-POINT. 

UPWELL 

417 

POSALT  ■  UPVALT 

UPWELL 

419 

PALTCM  «  1 ,0E*O5*P0SALT 

UPWELL 

419 

cc 

IKM  =  INDEX  FOR  THE  HUMBER  OF  ALTITUDES  AT  WHICH  NATURAL 

UPWELL 

420 

cc 

CLOUDS  HAVE  BEEN  INCLUDED  IN  THE  UPWELLING  RADIANCE 

UPWELL 

421 

cc 

CALCULATION  (REQUIRED  BECAUSE  CLOUDS  ARE  INCLUDED  ONLY  FOR 

UPWELL 

422 

cc 

ALT1VU0ES  ZKM  EQUAL  TO  OR  GREATER  THAN  1?.  KM). 

UPWELL 

423 

IKM  -  0 

UPWELL 

424 

cc 

BEGIN  LOOP  OVER  NALTJ  ALTITUDES. 

UPWELL 

425 

NALTJ  -  NALT(JBAND) 

UPWELL 

426 

00  BO  1-1. NALTJ 

UPWELL 

427 

cc 

IIP.JJP.KKP.LLF  ARE  THE  LOOP  INDICES  USED  IN  THE  CALL  TO 

UPWELL 

428 

cc 

SUBROUTINE  SURRAD  WITHIN  THE  WAVENUMBER  LOOP. 

UPWELL 

429 

IIP  -  I 

UPWELL 

430 

IF(  ZKM[  I ,  JBANO )  .LT.  0.001  )  ZKM(I.JBANO)  -  0.001 

UPWELL 

431 

OETALT  *  UPWALT  ♦  ZKM(I.JBAND) 

UPWELL 

432 

DALTCM  =  1.0E*05*DETALT 

UPWELL 

433 

cc 

GET  EARTH-CENTEREC  CARTESIAN  COORDINATES  OF  POINT  V. 

UPWELL 

434 

CALL  GE0XYZ(DETALT.DETLAT,DETL0N.RV(1),RV(2),RV(3)) 

UPWELL 

435 

cc 

GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  DETECTOR  FOR  SGEOM 

UPWELL 

436 

XD  -  RV(1 ) 

UPWELL 

437 

YD  -  RV(?) 

UPWELL 

438 

ZD  •  RV(3) 

UPWELL 

439 

CALL  VUN(RV,1.0E+OS,RV,0. 0,0.0) 

UPWELL 

440 

cc 

FOR  ALTITUDE  OETALT,  DETERMINE  FRACTION  OF  2*PI  50LID  ANGLE, 

UPWELL 

441 

cc 

OMEGAT,  THAT  IS  SUBTENDED  BY  THE  TANGENT  CONE  WITH  VERTEX  ST 

UPWELL 

44? 

cc 

POINT  V.  FIRST,  COMPUTE  SLANT  RANGE,  SRT,  OF  TANGENT  RA* 

UPWELL 

443 

3i° 


cc 

FROM  POINT  V. 

UPWUL 

AAA 

SRT  *  $QRT(  (2.»RE+DETALT)*0ETALT  ) 

UPWELL 

AA5 

cc 

COMPUTE  COSINE  OF  NADIR  ANGLE,  CBETAT  -  COS(BETAT),  CORRES¬ 

UPWELL 

4  AG 

cc 

PONDING  TO  TANGENT  RAY. 

UPWELL 

AA7 

CBETAT  *  SRT/(RE+D£TALT) 

UPWELL 

4AS 

OMESAT(I)  -  1.0-CBETAT 

UPWELL 

449 

cc 

IT  MAY  MOT  BE  NECESSARY  TO  SAVE  THESE  SOLID  ANGLE  FACTORS. 

UPWELL 

AfO 

cc 

CIDFG1  -  FLAG  CONTROLLING  A  TEMPORARY  ASPECT  OF  THE 

UPWELL 

A51 

cc 

CLOUD-RELATED  CALCULATIONS.  CLDFG1  IS  ALWAYS  0.0  IF 

UPWELL 

452 

cc 

CLOFLG  «  0.0  BUT  MAY  BE  0.0  OR  1.0  IF  CIDFLG  -  1.0  . 

UPWELL 

453 

cc 

CLDfGl  IS  SET  TO  0.0  JUST  BEFORE  THE  TEST  ON  ALLOWED 

UPWELL 

454 

cc 

ALTITUDES  AND  MASTER  FLAG  (CLOFLG]  FOR  INCLUSION  OF  CLOUDS 

I'RWELL 

455 

cc 

AND  IS  RESET  TO  1.0  JUST  AFTER  THIS  TEST. 

UPWELL 

456 

cc 

CLDFGl  CONTROLS  THE  CALCULATION  OF  (A)  CFPV  IN  NADIR  LOOP, 

UPWELL 

457 

cc 

SINCE  CFPV  IS  INDEPENDENT  OF  AZIWTH  BUT  PL»FNDENT  ON  NADIR 

UPWELL 

458 

cc 

AND  HENCE  ALTITUDE,  ANO  (B)  VARIOUS  CLOUD-CZLATED  QUANTITIES 

UPWELL 

459 

cc 

IN  WAVENUMBER  LOOP. 

UPWELL 

460 

cc 

»  1.0  ALLOWS  CALCULATION  ON  FIRST  PASS. 

UPWELL 

461 

cc 

*  0.0  BTPASSES  CALCULATION  ON  LATER  PASSES  OR 

UPWELL 

462 

cc 

BYPASSES  CALCULATION  ON  ALL  PASSES  IF  CLDFLS-O.O. 

UPWELL 

463 

CLDFG1  «  0.0 

UPWELL 

464 

IF (  (ZKM(I.JBAND)  .IT.  12.0)  .OR.  (CLOFLG  .EQ.  0.0)  )  GO  TO  17 

UPWELL 

465 

ccc 

UPWELL 

466 

cc 

***  GOT  HERE  FOR  CLOUDS,  OAY  OR  NIGHT  ********+********»********** 

UPWELL 

467 

IKM  -  IKM+1 

UPWELL 

468 

CLDFG1  -  1.0 

UPWELL 

469 

IF(  IJCM.GT.  1  )  GO  TO  17 

UPWELL 

470 

ccc 

UPWELL 

471 

cc 

**•  GOT  HERE  FOR  CLOUDS.  ZKMU.JBAND)  *  12.0  KM  *»»»******•****«- 

UPWELL 

472 

cc 

SET  ALTITUOES  OF  ALL  POINTS  C  (TO  BE  VIEWED  FROM  POINT  V) 

UPWELL 

473 

cc 

EQUAL  TO  12-KM. 

UPWELL 

474 

C12ALT  *  12.0 

UPWELL 

475 

CALTCM  *  1.0E+05*C!2ALT 

UPWELL 

476 

cc 

THE  NATURAL  CLOUD  MODEL  ( NCM)  FUNCTION  CF10SF( ICC, CHI ) 

UPWELL 

477 

cc 

COMPUTES  THE  PROBABILITY  OF  A  CLOUD-FREE  L1NE-0F-SIGHT 

UPWELL 

478 

cc 

(CFIOS),  GIVEN  THE  CLOUD  COVERAGE  IN  TENTHS  (ICC-Hl)ll)  AND 

UPWELL 

4  79 

cc 

ZENITH  ANGLE  CHI  (DEGREES).  HERE,  WE  WANT  CFP$.  A  MEAN 

UPWELL 

480 

cc 

PROBABILITY  OF  A  CFLOS  FROM  POINT  P  TO  THE  SUN,  OBTAINED 

UPWELL 

481 

cc 

AN  AVERAGE  OVER  THE  NCM  CLOUO-COVERAGE  VALUES  OF  0,3, 5,8.  AND 

UPWELL 

48? 

cc 

10  TENTHS,  OCCURRING  WITH  PROBABILITIES  CCOVER  ( T  .KWDEL) 

UPWELL 

483 

cc 

(1-1,5),  FOR  A  SELECTED  VALUE  OF  KMOOEl .  WE  ASSUME  THE  SOLAR 

UPWELL 

484 

cc 

ZENITH  ANGLE  SOIZ  AT  THE  SU8 POINT  V  IS  AN  EXCELLENT  APPROX¬ 

UPWELL 

485 

cc 

IMATION  TO  THOSE  AT  ALl  POINTS  P. 

UPWELL 

486 

IF (  I DAW  .EC  0  )  GO  TO  17 

UPWELL 

487 

ccc 

UPWELL 

488 

cc 

***  GOT  HERE  FOR  CLOUDS,  OAY 

UPWELL 

489 

RTD  -  1B0./PI 

UPWELL 

490 

solz  •  rtd*acos(  cssaz  ) 

UPWUL 

491 

CFPS  -  CCOVER ( 1 .KMOOEL )*CF10$F ( 1 , SOLZ) 

UPWELL 

49? 

1  +  CCOVER(2,KMODEL)*CFLOSF(4,$OLZ) 

UPWELL 

40J 

Z  ♦  CCOVER (3,KMODEL)*CFLOSF( 6, SOLZ) 

UPWELL 

494 

3  +  CCOVER ;A,KM0DEL)*CFL05F ( 9, SOLZ ) 

UPWELL 

495 

A  ♦  CCOVER ( 5, KNOD£L)*CFLOSF(11,50LZ) 

UPWELL 

49C 

cc 

THE  ABOVE  CALCULATIONS  ARE  DONE  ONLY  FOR  THE  FIRST 

UPWELL 

49’’ 

cc 

AlTITUOE  AT  WHICH  A  CLOUD  CALCULATION  IS  DONE. 

UPWELL 

498 

ccc 

UPWELL 

490 

17  CONTINUE 

UPWELL 

500 
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***  60T  HERE  fOR  OAT  OS  NIGHT,  RESABOLESS  Of  aOUOS  *•****•' ****** 

PREPARE  TO  LOOD  OVER  NNA^IR  NADIR  AN6LES  CORRESPONDING  TO 
FRACT11ES  Of  0ME6AT,  FRCTL. 

FNN  -  ANADIR 
DO  70  J*1,NNA0IR 
JJP  *  J 
f  J  •  J 

FRCTL  *  (FJ-0.5)/FNN 

COMPUTE  KADIR  ANGLE  8ETA  CORRESPONDING  TO  FRACTILE  FRCTL. 

BETA  *  ACO'(  1.0-FRCn.*0ME6AT(l)  J 

COMPUTE  ZENITH  ANGLE,  CHI,  OF  POINT  V  VIEWED  FROM  POINT  P 
(THE  INTERSECTION  POINT  AT  THE  EARTH'S  SURFACE  OF  THE  RAT 
FROM  POINT  V  AT  NADIR  ANGLE  BETA) . 

CHI  -  ASIN(  (1 .0*DETALT/RE)*SIN( BETA)  ) 

COMPUTE  THE  EARTH  CENTRAL  ANGLE,  ALPHA,  SUBTENDED  BT  POINTS  P 
AND  T. 

ALPHA  •  CHI -BETA 

IF(  CLDFG1  .EQ.  0.0  )  SO  TO  20 

***  GOT  HERE  FOR  CLOUDS,  OAT  DR  NIGHT  . . . . . 

COMPUTE  ZENITH  ANGLE,  CHIC,  OF  POINT  V  VIEWED  FROM  POINT  C 
(THE  INTERSECTION  POINT  AT  THE  12-XN  ALTITUDE  SURFACE  OF  THE 
RAT  FROM  POINT  V  AT  NADIR  ANGLE  BETA  TO  POINT  P). 

CHIC  -  BETA 

IF (  DETALT  .GT.  C12ALT  )  CHIC  ■  ASIN(  ( (RE+OETALT)/ (RE<C12ALT) )• 

$  SIN(BETA)  ) 

COMPUTE  THE  EARTH  CENTRAL  ANGLE,  ALPHAC,  SUBTENDED  8T  POINTS  C 
AND  V.  ALPHAC  IS  USED  LATER. 

ALPHAC  *  CHIC  -  BETA 

EXPRESS  CHI  IN  DEGREES  (CHID)  AS  REQUIRE!)  FOR  INPUT  TO 
SUBROUTINE  CLDWT. 

CHID  -  CHI  *  RTO 
20  CONTINUE 

PREPARE  TO  LOOP  OVER  NAZI  AZIUJTH  ANGLES.  RESET  MAXIMUM 
m*B£R  OF  AZIMUTH  ANGLES,  NAZI,  TO  BE  1  IF  IOATV-O  OR  HSN=! . 

IF (  (IDATV.EQ.O)  .OR.  (MSM.EQ.l)  )  MZI  -  1 
INITIALIZF  AZIMUTH  ANGLE. 

PIDNA  -  PI/FLOAT(NAZI) 

AZI  -  RtFAZI-O. 5*PIDNA 
00  60  K*1 .NAZI 
XX  P  -  X 

ALLOW  SOLAR  SPECULAR  REFLECTION  POINT  TO  BE  COMPUTED  ONLY  ONCE 
PER  ALTITUDE.  HOWEVER,  IF  IDAYV-0  OR  MSM.NE.2  NT  DO  NOT 
COMPUTE  SPECULAR  REFLECTION  POINT  AT  ALL. 

SPCLRX  .  SPCULR  .AND.  t(MC).EQ,2) 

IF(  (iOATV.EO.O)  .OR.  (MSM.NE.2)  )  SPaRX  -  .FALSE. 

AZI  -  AZI+PIDKA 

MUST  SET  LATITUOE  AND  LONGITUDE  OF  POINT  P  IN  POSITN  CDM»N. 
USE  REVISED  HARC  SUBROUTINE  AGAGEO  WITH  POINT  1  BEING  POINT  V 
AND  POINT  ?  BEING  POINT  P. 

CALL  AGA6EO(OALTCM.PI02-DETLAT,OETLON.AZI,ALPHA,PALTCM,PSCLAT. 

I  POSLON) 

POSLAT  «  PID2-PSCLAT 
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S3' 

UPWELL 

536 

UPVELL 

537 

HOWELL 

538 

UPWELL 

539 

UPWELL 

5*0 

tTWELL 

541 
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UPWELL 
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U®VEU. 
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UNWELL 

548 

UFWELL 
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557 
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CC  now  HAVE  LATITUDE  AND  LONGITUDE  0*  POINT  P. 

CC  GET  EARTH-CENTERED  CARTESIAN  COORDINATES  OF  POINT  P. 

CAU  6E01TZ) PO SALT, PO SLAT, POSL ON, RP( !),RP(2),RP(3)1 
CC  SET  DIRECTION-COSINES  UL.  VL,  AND  WL  OF  POINT  P  FROM  POINT  V. 

UL  •  RP(1)-XD 
YL  •  RP;ZI-YO 
ML  -  RP(3)-ZD 

RR1  =■  I.O/SORT(  UL*'JL  ♦  YL*YL  *  ML*WL  ) 

UL  «  UL*RR1 
VI  *  VL*RR! 

ML  «  tfl*RRl 

CALI  YlIN(RP,l,0E*O5,RP, 0.0,0. 01 
IF (  CL0FS1  .EQ.  0.0  )  GO  TO  21 

***  SOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT  «*»**•»******♦*****»«•****♦ 
FOR  POINT  C,  SET  LATITUDE  AND  LONGITUDE  IN  P0S1TN  CO»«N  AND 
ALSO  SET  EARTH-CENTERED  CARTESIAN  COORDINATES. 

IF  POINT  V  IS  AT  L2-KM  AITITUOE,  POINT  C  IS  AT  POINT  V. 

C12LAT  *  OETLAT  I  C12L0N  *  DETLON 
RC(1)  *  Rvm  S  RC(2)  *  RV{?)  i  RC(3)  »  RV{3) 

IF(  DETALT  .EQ.  C12ALT  )  GO  TO  21 

**•  GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT,  2KM(I,JBAND)  .GT.  12.0  **** 
CALL  A6AGEO(DALTCW,P,D2-DETlAT,PETLON,AZI , alphac,caltcn,cclat, 
i  C12L0N) 

C12LAT  .  P1D2  -  CCLAT 

CALL  6E0XYZtC12AlT.C12lAT  C12L0N.RC! I  ),RC( 2),RC( 31) 

CALL  VI I  N(RC.  1 .0£M>5,RC, 0.0,0.01 
21  CONTINUE 

SET  FlLPOS  FOR  CALL  TO  TRANS. 

FILPOS  PLAYS  NO  ROLE  IF  TRNSOPT  .EQ.  TRUE  AND  (AS  SHOULD  BE 
THE  CASE)  ONE  USES  THE  SANE  SPECTRAL  LISTS  AS  ARE  USED  BY 
TRAN SB  IN  PREPARING  TAPOT=LTNT£.  HOMEVER.IF  TRNSOPT  .EQ. 
FALSE.  FILPOS  IS  USED  TO  ACHIEVE  NECESSARY  REMINDS  OF  TAPOT 
AND  AVOID  UNNECESSARY  REMINDS. 

FILPOS  -  1.0E*0* 

START  LOOP  OVFR  WAVENUMBERS. 

NMAVEJ  *  NMAVEI J8AN0) 

DO  58  L»l, NMAVEJ 
LLP  *  L 

THE  VARIABLES  IJKl  AND  IKHJKL,  NOT  USED  IN  THE  GRC  VERSION, 

ARE  USED  IN  THE  SAl  YERS'ON  TO  FACILITATE  PRINT  STATE»CNTS 
IJKL  •  1  ♦  J  ♦  K  *  L 
IKMJKl  *  IXM  *  J  ♦  f  *  L 

ZlAM  «  1 ,OE»OA/KW(L) 

MDL  ■  WW(L)  -  0.5*OM{L) 

WDH  *  MW(L)  *  0.5*DW(l . 

CALL  S'JRRAC'2.NSN,0D,STCLRX,]IP,JJP,XXP,UP,ZLAN,O  .RAD.UPS.UPPS, 
i  UCS.UPCS' 

NOW  HAVE  *T  POINT  P  ON  THE  EARTH'S  SURFACE  THE  EMITTED 
RADI  A/4CE  RAT  1)  AND  {IF  IllAY-l  ARC  IDAW-l)  THE  (UNATTENUATEO' 
REFLECTED  RADIANCE  OF  SOL AT  RADIATION  RA0(2)  AND  THE  PATH 
PARAMETERS  UPSMT.N.l)  AND  UPPSIIT.N.l)  FOR  THE  INCOMING  SOLAR 
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RAY.  ALSO  H3VE  AEROSOL  TR ANSMJTTAnCE  (TA$P(Ll)  THROUGH  A'  =  50L 
(WOK  FOR  RATH  FROT  s  to  R,  WHICH  WILL  BE  USED  LATER.  ALSO 
HAVE  AT  POINT  C  THE  PATH  PARAMETERS  UCStIT.Nl  AND  UPCSflT.N' 
FOR  THE  INCOMING  SOLAR  RAY  AND  THE  AEROSOL  TRANSMITTANCE 
(TASCfL)l  THROUGH  RIRSOL  CO**W}N  FOR  PATH  S  TO  C,  ALSO  USED 
later,  the  PATH  PARAMETERS  ARE  COWUTED  CHlY  FOR  L*l,  BUT 
TASPIL'  AND  TASCUl  ARE  COMPUTED  FO®  L-l.NWAVEJ.  WE  WILL  SOON 
GET  SUM  OF  fl<  ATTENUATED  RADIANCE  EMITTED  FROM  SURFACE  AND 
(2'  ATTENUATED  ATMOSPHERIC  EMISSION  BE’WN  POINTS  V  AND  P. 
TEMPORARILY  USE  UPRAO(K.L)  FOR  THIS  SUM  WHICH  IS  INDEPENDENT 
OF  A2IMUTH. 

IF(  K  .GT.  11  60  TO  X) 

NEED  CALL  TRNSCO  ONLY  ON  FIPST  WAVENUMBER  BECAUSE  TRNSCO 
INTERNALLY  LOOPS  OVER  THE  WAVENLM6ER  LIST. 

IF (  L  .GT.  1  )  GO  TO  27 

***  GOT  HERE  FOR  DAY  OR  NIGHT.  REGARDLESS  Of  CLOUDS  *****•»••**♦** 
FOR  SOME  APPLICATIONS  IT  IS  DESIRABLE  TO  HAVE  SUBROUTINE 
UPWElL  RESULTS  CORRESPONDING  TO  Z*“* C.O.  EVEN  THOUGH  THE 
ROUTINE  WAS  NOT  ORIGINALLY  OESIGNED  TO  BE  CALLED  WITH  ZKM-O. 

TO  CIRCUMVENT  THIS  DIFFICULTY,  WE  DEVELOP  A  PSEUDO  7ER0- 
ALTITUDE  ALGORITHM  WHICH  EXPLOITS  THE  FEATURE  OF  SUBROUTINE 
STEP  WHEREIN  IT  DOES  NOT  COMPUTE  PATH  ELEMENTS  LESS  THAN  10 
METERS  IN  LENGTH.  THUS.  IF  THE  TOTAL  PATH  IS  LESS  THAN  10 
METERS.  THEN  SUBROUTINE  STEP  SETS  NC  TO  ZERO.  WE  DETECT  SUCH 
A  CONDITION  BY  SETTING  A  NEW  VARIABLE  NCNC  EO'JAL  TO  FiC  AFTER 
the  double  CALL  to  SUBROLTINE  STEPS  IN  SUBROUTINE  TT.NSCO  AND 
CARRYING  NCNC  TO  UPWELL  VIA  QNCNC  CCMtON  (KNOWN  ONLY  T0  TRNSCO 
AND  UPWELL  1.  WE  MUST  ALSO  RECOGNIZE  THAT  SUBROUTINE  ATHIAD 
NORMALLY  PERFORMS  TWO  OPERATIONS  FOR  (NC.GT.ll  WHICH  ARE  NO’ 
PERFORMED  FOR  (NC.LT.2).  THESE  OPERATES  ARE  (II  REWINDING 
LTWTE  AND  (?)  ZEROING  THE  SECOND  HALVES  OF  ’HE  y  UP 
ARRAYS.  THUS.  FOR  (NC.EO-OS.  WE  WANT  TO  (AND  00'  PERFORM 
THESE  TWO  OPERATIONS  HERE  IN  UPWELL.  SUBROUTINE  TRNSCO,  FOR 
(HC-LT.?'.,  WILL  RETIRN  ZERO  FOR  THE  AIR-PATH  RADIANCE 
(BKGNO  B I  ( NB I ) )  AND  UNITY  FOR  THE  AIR-PATH  TRANSMITTANCE 
(TRANS  B I ( MB  1)1.  THESE  VALUES  ARE  PRECISELY  THE  VALUES 
APPRO0®  I  ATE  for  the  ALTITUDE  EQUALLING  ZERO,  valTD  OF  COURSE 
FOP  ALL  NADIRS  AND  AZIKJTHS.  THUS.  THE  PSEUDO  ZERO-ALTITUDE 
ALGQPITHM  NEED  BE  EXETCISEP  ONLY  FOR  THE  FIRS’  NADIR  AND  THE 
FIRSt  AZIHITH.  TC  PROCEED  WITH  THC  PSEUDO  ZERO-ALTITUDE 
ALGOR  I’M*-.  WE  SELECT  AN  ALTITUDE  ZK“  LESS  THAN  10  METERS,  SA» 
ONE  METER  -  0.001  KM.  WE  ALSO  PRETEND  THAT  THE  PATH  LENG’M 
NEVER  EXCEEDS  10  METERS,  REGARDLESS  OF  TMF  NADIR  ANGLE, 
PROVIDED  IT  DID  NOT  00  SO  FOR  THC  FIRST  NADIR.  THUS,  WE 
DECREE  THAT  TRNSCO  SHALL  NOT  BE  CALLED  FOR  (G.GT.11  IF  TMF 
PATH  LENGTH  WAS  LEGS  THAN  10  METERS  FOR  0*1, 

IF  (  J  ,GT .  11  GO  TC  23 

FOLLOWING  CALL  TO  TRNSCO  OCC-JIS  FOR  I.GE.l.  J*K*L»1. 

TRNSCO' S  ARGUMENT -US’  DISTANCES  NUST  BE  IN  CM. 

CALL  TRNSCO,'  RV,  RP,  RP,  18 'NT,  RADSW  ' 

Iff  NCNC  .GT.  1  1  GO  TO  25 

SINCE  WE  ARE  SEELING  RESULTS  FOR  ZKM*O.C,  PERFORM  Tut  TVA 
ABOVE-DESCRIBED  OPERATIONS  NORMALLY  PERFORMED  BY  $UBRO;r'INE 

ATXRIAD. 


UPWELL 

615 

UPWEl: 

61® 

UPWELl 

61  7 

UPWELL 

61$ 

UPWELL 

618 

UPWELL 

620 

UPWELL 

621 

UPWELL 

62? 

UPWELL 

®?3 

UPWELL 

6?4 

U°WELL 

625 

UPWELL 

625 

UPWELL 

627 

UPWELL 

62? 

UPWELl 

6?« 

UPWELL 

6  JO 

UPWElL 

6J1 

UPWELL 

63? 

UPWELL 

633 

UPWELL 

63A 

UPWELL 

635 

UPWELL 

636 

UPWELL 

63? 

UPWELL 

638 

UPWELL 

63m 

UPWELL 

640 

UPWELL 

641 

UPWELL 

64? 

UPWELL 

64  3 

UPWELL 

644 

UPWELL 

645 

UPWELL 

646 

UPWELL 

647 

UpWELL 

64$ 

UPWELL 

64$ 

JPWELL 

650 

'jpweli 

651 

UP  WE'  L 

65? 

UPWELL 

653 

UPWELL 

654 

L'PWEU 

666 

UPWELL 

656 

UDWFLL 

65' 

UPWELL 

65$ 

UPWELL 

66$ 

UPWELL 

660 

UPWELL 

66! 

upwe.l 

66? 

UPWELL 

663 

UPWELL 

664 

UPWELL 

666 

'.'“WELL 

66® 

L'PWELL 

66’ 

UPWELL 

66$ 

'JPWELL 

66$ 

UP-ELL 

6’0 

L'PWELL 

6". 

RSRSRS"  RRS38R 


2?  REWIND  ltmte 

CALL  WIT  (  -10O,  0.,  tffl.1,2)  ) 

CALL  WIT  {  -100,  0.,  UP(l,l,?5  ) 

SO  TO  25 

23  IF(  NCNC  .ST.  1  )  GO  TO  24 
60  TO  22 

Ct  FOLLOWING  CAl_  TO  TRNSOO  0CCt#5  FOR  I.GE.2,  J.GE.2,  X-l-1. 

CC  TRNSCO’S  ARGIPCNT-LIST  DISTANCES  HOST  BE  IK  CM. 

24  CALL  TRNSCD(  RV.  RP,  RP,  LBIKT,  RADSW  ) 

25  CONTINUE 

a  WE  ALSO  NEED  TO  PRESERVE  PATH  PARAWTERS  FOR  PATH  P  TO  V  IK 

CC  ARRAYS  UPV  AND  UPPV. 

CALL  WIT  (  100,  U  (1,1,2),  U  PY) 

CALL  WIT  (  100,  UP(1.1.2).  UPPV) 
k*ITE(8,10?S) 

1025  FORMAT  (1H0.45X.41H*  *  *  PATH  PARAMETERS,  POINT  P  TO  V  *  *  */45X,» 
J(FR0M  SUBROUTINE  UPVEL1  .  FORMATS  1025,1027)*/2X, *TENPERATURE/SPECI 
SES.  ({U  PY(N,N),K*1,NSP€CS).M*1.2)*> 

«ITE(6.1026)  ( (M,  (U  PV(M.N),N-1,NSPECS)).M-1,2) 

1026  FORMAT  (2X, I3.1P10E12.4) 

WITE(6,1027) 

1027  FORMAT  (lNO. IX, ‘TEMPERATURE/ SPECIES.  ((UPPV(M,N),*-1,NSPECS).M>1 

S.2)*) 

WITE(6,102S)  ((M,  (UPPV(M,N).N-1,NSPECS}>,M*1,2) 

FOR  PATH  P  TO  Y.  PRESERVE  TAPY(L),  TT?Y(L),  ANO  A£PV(L> 
(L*1,NHAVEJ)  WHICH  ARE  DERIVED  FROM  DATASET-B1 .  SEE 
SUBROUTINES  TRNSCO  AND  ATMRAD  FOR  COMMENTS  REGARDING  TEWOHARY 
USE  OF  WORD-B  OF  0ATASET-8I  FOR  AEROSOL  TRANSMITTANCE. 

LX  -  0 
LINT  •  LBINT 

26  CALL  PREV  (  UNT.NBI  ) 

IF (  NB1  .EO-  0  )  GO  TO  27 
LX  •  LX  ♦  1 

IF (  lX  .GT.  10  )  GO  TO  27 
TTPV(LX)  *  Q(H3!«6) 

AEPV(LX1  -  Q(«I*4)/0W(IX) 

Q(NB1*4)  *  0. 

TAPV(LX)  •  Q(NB1*7) 

10(NBI+7)  -  0 
GO  TO  26 
V  CONTINUE 

THE  NEXT  STATFFCNT  PROVIDES  THE  ABOVE-*  NT  ION  ED  SUM 
(TEMPORARILY  CALLEO  UPRAD(K,L))  Of  (1)  EARTH’S  SURFACE 
RADIWtCE  RAD(l)  MULTIPLIED  BY  THE  TOTAL  TRANSMITTANCE  TIPV(L) 
BETWEEN  °CINTS  P  (W  V  AND  (21  THE  AT*! SPHERIC  EMISSION 
AEPV(L)  BETWEEN  POINTS  V  AND  P.  THE  DO-28  LOOP  RECOGNISES 
THIS  SUM  IS  A2IHUTHALLY  INDEPENDENT. 

UPRAO(X.L)  ■  RAO(l)«n?V(L)  ♦  AFPV(l' 

IF (  NA2I  .EO.  1  )  60  TO  29 
00  28  WX-2.NAZI 
UPRAD(KKX.L)  •  UPRAD(l.L) 

78  CONTINUE 
28  CONTINUE 

!F(  IJTL  .EO.  4  )  «*ITE(6,100) 

100  FORMAT  (1H1.44X.43H*  *  *  0"TPUT  FROM  SUBROUTINE  UPWELL  *  *  *) 


UPWEIL 

672 

UPWELL 

673 

UPWELL 

674 

UPWELL 

67S 

UPWELL 

676 

UPWELL 

677 

UPWELL 

678 

UPWELL 

679 

UPWELL 

680 

UPWELL 

o31 

UPWELL 

68? 

UPWELL 

683 

UPWELL 

684 

UPWELL 

685 

UPWELL 

686 

UPWEU 

687 

UPWELL 

698 

UPWELL 

6B9 

UPVELL 

690 

UPWELL 

691 

UPWELL 

69? 

UPWELL 

693 

UPWELL 

694 

UPWELL 

69S 

UPWELL 

696 

UPWELL 

697 

UPWELL 

698 

UPWELL 

699 

UPWEU 

700 

UPWELL 

701 

UPWELL 

70? 

UPWELL 

703 

UPWELL 

704 

UPWELL 

705 

UPWELL 

7C6 

UPWELL 

707 

UPWELL 

708 

UPWELL 

709 

UPWELL 

710 

UPWELL 

711 

UPWELL 

71? 

UPWELL 

713 

UPWELL 

714 

UPWELL 

715 

UPWELL 

716 

UPWELL 

717 

UPWELL 

718 

UPWELL 

719 

UPWELL 

720 

UPWELL 

721 

UPWELL 

72? 

UPWELL 

;?3 

UPWELL 

7?4 

UPWELL 

7?5 

UPWELL 

7?6 

UPWELL 

7?7 

UPWELL 

7?8 

1F(  IJKt  .EQ.  4  )  WRIT£(6,101) 

UNWELL 

725 

101 

FORMAT  (1H0.1X.107H  I  J  K  L  WDL  WDH  Z 

UPWELL 

730 

SLAM  RA0(1)  TTPV  AEPV  TAPV  ) 

UPWELL 

731 

*UTE(6,10?)  I , J.K.L.WOL.WOH, ZLAM,RA0( 1),"!TPV(L),AEPV(L),TAPV[L) 

UPWELL 

73? 

10?  FORMAT  (2X,4I3,1P7(E14.5)) 

UPWELL 

733 

30 

CONTINUE 

UPWELL 

734 

CCCC 

UPWELL 

735 

CC 

UPRAD  IS  OUR  ANSWER  IF  IDAYV=0  AND  IF  NO  CLOUDS  ARE  INCLUDED. 

UPWELL 

736 

IF (  CLDFG1  .EQ.  0.0  )  GO  TO  36 

UPWELL 

737 

ccc 

UPWELL 

738 

CC 

***  GOT  HERE  FOR  CLOUDS,  DAY  NIGHT  ***•*********+***—••>•••••• 

UPWELL 

739 

CC 

PREPARE  TO  CALL  NCM  SUBROUTINE  CLDWT  TO  GET  THE  NCDSET-MEMBER 

UPWELL 

740 

CC 

ARRAYS  FOR  WEIGHTS  CORRESPONDING  TO  THE 

UPWELL 

741 

CC 

VARIOUS  CLOUD  CONFIGURATIONS  OR  SETS  (WT),  AND,  AT  12-KM 

UPWELL 

74? 

CC 

ALTITUDE  (POINT  C)  ALONG  THE  PATH  FROM  POIfIT  P  TO  POINT  V,  THE 

UPWELL 

743 

CC 

TOP-CLOUD  EMISSION  RADIANCES  (EMISS)  AND  (IF  IDAYV'l)  THE 

UPWELL 

744 

CC 

TRANSFER  COEFFICIENTS  (TRANS)  FOR  THE  TOP-CLOUD  REFLECTION 

UPWELL 

745 

CC 

OF  THE  SOLAR  RADIATION. 

UPWELL 

746 

CC 

WT(  I ) ,  FOR  ANY  OF  THE  10  LOCATION- SEASON  AVERAGED  STATISTICAL 

UPWELL 

747 

CC 

CLOUD  MODELS  (KMODEL-1,10) .  IS  THE  PROBABILITY  THAT  (A)  THE 

UPWELL 

748 

CC 

CLOUD-CONFIGURATION  SET  INDICATED  BY  THE  INDEX  I  OCCURS  AND 

UPWELL 

749 

CC 

(B)  THE  DETECTOR  LOS  AT  ZENITH  ANGLE  CHI  INTERSECTS  THE  CLOUD- 

UPWELL 

750 

CC 

CONFIGURATION  SET.  THE  PROBABILITY  OF  THE  DETECTOR'S  LOS 

UPWELL 

751 

CC 

INTERSECTING  CLOUDS  IS  SUH(WT(I))  ( 1*1. 1DX-1 ) . 

UPWELL 

75? 

CC 

UPWELL 

753 

CC 

BEFORE  PROCEEDING  TO  CALL  SUBROUTINE  CLDWT,  WE  COMPUTE  THE  AIR 

UPWELL 

754 

CC 

EMISSION  BETWEEN  POINTS  C  AND  V  [ARCVA( IKM, J, L )) 

UPWELL 

755 

CC 

AND  THE  AIR  TRANSMITTANCE  (BOTH  MOLECULAR  AND  AEROSOL)  FROM 

UPWELL 

756 

CC 

POINT  C  TO  POINT  V.  THE  TOTAL  TRANSMITTANCE  IS  TTCV  AND  THE 

UPWELL 

757 

CC 

AEROSOL  TRANSMITTANCE  IS  TACV.  ALL  OF  THESE  QUANTITIES  ARE 

UPWELL 

753 

CC 

INDEPENDENT  OF  AZIMUTH,  SO  THEY  NEED  BE  COMPUTED  ONLY  FOR  X*l. 

UPWELL 

759 

IF (  ZKM(I.JBAND)  .CT.  12.0  )  GO  TO  31 

UPWELL 

760 

IF (  (  J  .GT.  1  )  .OR.  (  K  .GT.  1  )  )  GO  TO  33 

UPWELL 

761 

AECV(L)  •  0.0 

UPWELL 

76? 

TTCV(L)  -  1.0 

UPWELL 

763 

TACV(L)  *  1.0 

UPWELL 

76« 

IF (  L  .GT.  1  )  GO  TO  33 

UPWELL 

765 

CC 

ZERO  ARRAYS  PRESERVING  PATH  PARAMETERS  TOR  PATH  V  TO  C.  NEED 

UPWELL 

766 

CC 

BE  DONE  ONLY  ONCE  FOR  ZKM(I.JBAND)  »  12.0  . 

UPWELL 

767 

CALL  XMIT  (-100,  0.,  U  CV  ) 

UPWELL 

768 

CALL  XMIT  (-100,  0.,  UPCV  ) 

UPWELL 

769 

GO  TO  33 

UPWELL 

770 

31 

CONTINUE 

UPWELL 

771 

IF {  (  K  .GT.  1  )  .OR.  (  L  .GT.  1  )  )  SO  TO  33 

UPWELL 

772 

CC 

FOLLOWING  CALL  TO  TRNSCO  OCCURS  FOR  CLDFLG.EQ.l, 

UPWELL 

773 

CC 

ZKM(I,OBAND) .GT.12.0,  J.GE.l,  K*L*1  . 

UPWELL 

774 

CALL  TRNSCO (  RV,  RC.  RC,  LBINT,  RAOSW  ) 

UPWELL 

775 

CC 

WE  ALSO  NEED  TC  PRESERVE  PATH  PARAMETERS  FOR  PATH  C  TO  V  IN 

UPWELL 

776 

CC 

ARRAYS  UCV  AND  UPCV. 

UPWELL 

777 

CALL  XMIT  (  100,  U  (1,1,2),  U  CV) 

UPWE!  L 

778 

CALL  XMIT  (  100,  UP( 1,1,2),  UPCV) 

UPWELL 

779 

WRITE(6,1031) 

UPWELL 

780 

1031 

FORMAT  (IH0.45X.41H*  *  *  PATH  PARAMETERS,  POINT  C  TO  V  *  *  V47X,* 

UPWELL 

781 

I(FROM  SUBROUTINE  UPWELL,  FORMATS  1031 , 1033) */?X , ‘TEMPERATURE /SPEC I 

UPWELL 

78? 

JES.  ( (U  CY(M,N) ,N*1 .NSPECS) ,M-1 ,2)*) 

UPWELL 

783 

WRITE(6,1026)  ( (H,  <0  CV(M,N) .N-l.NSPECS) ) ,M-1.2) 

UPWELL 

784 

WRITE(6,1033) 

UPWELL 

785 

3?5 


1033 

F0RM4T  (1HC ,  IX,  *TEMPi'D  AT'JRE/ SPECIES.  ((UPCV(M,N),N-1,NSPECS)  ,M«1 

UPWELL 

786 

1.2)*) 

UPWELL 

787 

WR1TE(6,!T,6)  ((M.  {'JFCV(M.« ) ,N*1,NSPECS)) .M-1,2) 

UPWELL 

788 

CC 

UPWELL 

789 

CC 

FOR  PATH  C  TO  V,  PRESERVE  TACV(L).  TTCV(L).  AND  AECV(t.) 

UPWELL 

790 

CC 

(L-l.NWAVEJ)  WHICH  ARE  DERIVEO  FROM  DATASET-BI .  SEE 

UPWELL 

791 

CC 

SUBROUTINES  TRNSCO  ANO  ATMRAD  FOR  COMMENTS  REGARDING  TEMPORARY 

UPWELL 

792 

CC 

USE  OF  WORD-B  OF  DATASET-BI  FOR  AEROSOL  TRANSMITTANCE. 

UPWELL 

793 

LX  *  0 

UPWELL 

794 

LINT  *  LB I NT 

UPWELL 

795 

32 

CALL  PREV  (  LINT.NB!  ) 

UPWELL 

796 

IF (  NBI  .EQ.  0  )  GO  TO  33 

UPWELL 

797 

IX  -  LX  +  1 

UPWELL 

798 

IF (  LX  .GT.  10  )  GO  TO  3? 

UPWELL 

799 

TTCV(LX)  *  QiNBI+6) 

UPWELL 

BOO 

AECV(LX)  *  Q(NBI+4)/0W(LX) 

UPWELL 

801 

Q(NBI+4)  *  0. 

UPWELL 

802 

TACV(I.X)  -  0(NB!+7) 

UPWELL 

803 

IQ(NBI+7)  «  0 

UPWELL 

B04 

GO  TO  32 

UPWELl 

805 

33 

CONTINUE 

UPWELL 

806 

CC 

UPWELL 

807 

IF (  IKKJKL  .EQ.  4  )  WRITE(6 .103) 

UPWELL 

808 

103 

FORMAT  (1H0.1X,*  I  J  K  L  ZLAM 

UPWELL 

809 

1  TTCV  AECV  TACV*) 

UPWELL 

810 

URITE(6,104)  I,o,K,L , ZLAM,TTCV(L) ,AECV(L) ,TACV( L) 

UPWELL 

811 

104 

FORMAT  ( 2X,4I 3.28X .1PE14.5, 14X,3( E14.5) ) 

UPWELL 

812 

CC 

UPWELL 

813 

IF(  K  .GT.  1  )  GO  TO  34 

UPWELL 

814 

CC 

A£CV(L)  IS  ’^DEPENDENT  OF  AZIMUTH,  SO  WE  PRESERVE  IT  WITH  A 

UPWELL 

815 

CC 

NOTATION  TO  DENOTE  IT  IS  THE  AZIMUTHAL  AVERAGE  FOR  THE 

UPWELL 

816 

CC 

CURRENT  VALUES  OF  IKM,  J,  AND  L. 

UPWELL 

B1 7 

ARCVA(IKM,U,L)  •  AECV(L) 

UPWELL 

818 

34 

continue 

UPWELL 

819 

CC 

UPWELL 

820 

CC 

IN  ORDER  THAT  SUBROUTINE  TRANSF  IN  THE  NCM,  CALLED  BY 

UPWELL 

821 

CC 

SUBROUTINE  CLOWT,  WILL  KNOW  WHETHER  OR  NOT  THE  SUN  IS  ABOVE  OR 

UPWELL 

822 

CC 

BELOW  THE  HORIZON,  SET  JTFLAG  IN  THE  FLAGS  COFWON  (USED  IN  THE 

UPWELL 

823 

CC 

NCM  AND  INCLUDED  HERE  IN  SUBROUTINE  UPWELL). 

UPWELL 

824 

ITFLAG  -  0 

UPWELL 

825 

IF (  IQAYV  .EQ.  1  j  ITFLAG  *  1 

UPWElL 

826 

CALI  CLDWT(ZLAM,CHID) 

UPWELL 

827 

CC 

SUBROUTINE  CLOWT  HAS  PROVIDED,  THROUGH  COMMON  CLDWT,  THE 

UPWELL 

828 

CC 

ARRAYS  WT,  TRANS.  AND  EMISS,  OF  LENGTHS  IDX,  IDX-1,  AND  IOX-1, 

UPWELL 

829 

CC 

RESPECTIVELY.  IDX  EQUALS  160  FOR  A  FULL  SET  OF  159  CONFIG¬ 

UPWELL 

830 

CC 

URATIONS  AND  IS  LESS  FOR  A  RESTRICTED  SET. 

UPWELL 

831 

CC 

UPWELL 

832 

CC 

TO  FACILITATE  COMPUTING  THE  RADIANCE  DISTRIBUTION  FUNCTION 

UPWELL 

833 

CC 

RESULTING  FROM  THE  STATISTICAL  TREATMENT  OF  NATURAL  CLOUDS, 

UPWELL 

834 

CC 

START  FORMING  A  NEW  RADIANCE  DISTRIBUTION  FUNCTION(UPRAOC) 

UPWELL 

835 

CC 

AND  CORRESPONDING  WEIGHTS! WTC ) .  IF  NCDSET  IS  THE  NUMBER  OF 

UPWELL 

83fi 

CC 

STATISTICAL  CLOUD  SETS,  WITH  A  MAXIMUM  OF  159,  FOR  KMODEl* 
1,10,  THEN  THE  LENGTH  (II)  OF  THE  ARRAYS  UPRADC  AND  WTC  WILL 

UPWELL 

837 

CC 

UPWELL 

838 

CC 

BE  1 1 »NCOSET-*  1  IF  I0AYV*0  OR  1I-NCD5ET+2  IF  IDAYV-1. 

UPWELL 

839 

CC 

(THIS  STATEMENT  DOES  NOT  INCLUDE  THE  ZERO-VALUE  MEMBERS  ADDED 

UPWELL 

840 

CC 

(AFTER  STATEMENT  LABEL  55)  FOR  INTERPOLATION  PURPOSES.) 

UPWELL 

841 

CC 

UPWELL 

84? 

326 


cc 

TO  FACILITATE  ASSESSING  THE  RELATIVE  IMPORTANCE  OF  EMISSION 

UPWELL 

843 

cc 

AND  REFLECTION  CONTRIBUTIONS,  PRESERVE  THE  EMISSION  COMPONENT 

UPWELL 

844 

cc 

OF  UPRADC  IN  ANOTHER  ARRAY  fUPRDCl). 

UPWELL 

845 

N COSET  ■  IDX-1 

UPWELL 

84fi 

SUMWTC  *  0.0 

UPWELL 

847 

00  35  M=! .NCDSET 

UPWELL 

848 

cc 

MULTIPLY  THE  SPECTRAL  RADIANCE  FROM  THE  NCM,  EXPRESSED  IN 

UPWELL 

849 

cc 

UNITS  OF  MATTS  /  (KM**2  SR  MICRON),  BY  1.0E-14*(ZLAH»*2)  TO 

UPWELL 

850 

cc 

OBTAIN  WATTS  /  (CM«2  SR  CM- 1 ) . 

UPWELL 

851 

cc 

ALSO  INCLUOE  TRANSMITTANCE  BETWEEN  POINTS  C  AND  V. 

UPWELL 

85? 

UPRADC (M)  *  (1.0E-14  *  ZLAH**?)  *  EMISS(M)  *  TTCV(L) 

UPWELL 

853 

UPRDCl(M)  *  UPRADC(M) 

UPWELL 

854 

WVC(N)  -  WT'M) 

UPWELL 

855 

SUMWTC  «  SUMWTC  +  WTC(M) 

UPWELL 

856 

35 

CONTINUE 

UPWELL 

857 

II  *  NCDSET+1 

UPWELL 

858 

CC 

AT  THIS  POINT,  II  WILL  NORMALLY  BE  ISO. 

UPWELL 

859 

CC 

UPWELl. 

860 

cc 

NOW  USE  FACT  THAT  RADIANCE  AT  POINT  V  DUE  TO  AIR  EMISSION 

UPWELL 

861 

cc 

BETWEEN  POINTS  V  AND  P  CAN  BE  BROKEN  INTO  TWO  PORTIONS... 

UPWELL 

86? 

cc 

AEPV(L)  =  AECV(L)  +  AEPC(L)*TTCV(L) 

UPWELL 

863 

cc 

THUS  A£PC(L)*TTCV(L)  -  AEPV(L)  -  AECV(L) 

UPWELL 

864 

cc 

HENCE  WE  NEED  TO  SUBTRACT  AECV(L)  FROM  UPRAD(K.L)  IN  ORDER  FOR 

UPWELL 

865 

cc 

UPRADC! II)  TO  CONTAIN  THE  (ATTENUATED)  AIR  EMISSION  BETWEEN 

UPWELL 

866 

cc 

POINTS  P  AND  C. 

UPWELL 

867 

UPRADC { I I )  *  UPRAO(K.L)  -  AECV(L) 

UPWEI  l 

868 

UPRDCl(II)  -  UPRADC ( I I ) 

UPWELL 

869 

cc 

UPWELL 

870 

cc 

WE  NEED  THE  MEAN  PROBABILITY  OF  A  CLOUD-EREE  LOS  FROM 

UPWELL 

871 

cc 

POINT  P  TO  POINT  V  (AT  ZENITH  ANGIE  CHI  CORRESPONDING  TO  NADIR 

UPWELL 

87? 

cc 

ANGLE  BETA.  AS  NOTED  BEFORE,  THE  PROBABILITY  OF  THE 

UPWELL 

873 

cc 

DETECTOR'S  LOS  INTERSECTING  CLOUDS  IS  SUM(WT{1))  (1=1, IDX-1). 

UPWELL 

874 

cc 

HENCE,  WE  TAKE  ( 1 . -SUM{ WT( I ) ) )  AS  THE  DESIRED  PROBABILITY  OF  A 

UPWELL 

875 

cc 

CLOUD-FREE  LOS,  CFPV. 

UPWELL 

876 

CFPV  *  1.  -  SUMWTC 

UPWELL 

877 

WTC(II)  *  CFPV 

UPWELL 

878 

cc 

THIS  kTC  IS  THE  ONE  OBTAINING  FOR  NIGHT.  FOR  DAY,  WTC  IS 

UPWELL 

8’9 

cc 

RESET  ."-TER  LOOP  D0-5Z. 

UPWELL 

880 

ccc 

UPWELL 

881 

cc 

IF  IDAYV=1,  MUST  ADD  IN  CLOUD-REFLECTED  SOLAR  RADIATION, 

UPWELL 

88? 

cc 

AFTER  ADDING  IN  SURFACE -REFLECTED  SOLAR  RADIATION. 

UPWELL 

88  3 

cc 

*»*  GOT  HERE  FOP  CLOUDS,  DAY  OR  NIGHT  ***••****»**»**••••♦*****«» 

UPWELL 

884 

Ir(  IDAYV.EQ.O  )  GO  TO  55 

UPWELL 

885 

ccc 

UPWELL 

886 

cc 

***  GOT  HERE  FOR  CLOUDS, DAY  *»»**********»****♦*♦******•*♦••»**»*»• 

UPWELL 

887 

GO  TO  37 

UPWELL 

888 

ccc 

UPWELL 

889 

36 

CONTINUE 

UPWELL 

810 

cc 

***  GOT  HERE  FOR  NO  CLOUDS,  DAY  OR  NIGHT  «***♦**********»*******+* 

UPWELL 

891 

cc 

IF  IDAYV*1,  MUST  ADD  IN  SURFACE-REFLECTED  SOLAR  RADIATION. 

UPWELL 

89? 

I F {  IDAYV.EQ.O  )  GO  TO  58 

UPWELL 

893 

ccc 

UPWELL 

894 

37 

CONTINUE 

UPWELL 

895 

cc 

***  GOT  HERE  FOR  DAY,  WITH  OP  WITHOUT  CLOUDS  •*****•♦•♦*•**•****** 

UPWELL 

896 

cc 

EARLIER,  SUBROUTINE  TRNSCO  CALLED  SUBROUTINE  PATH  FOR  THE  PATH 

UPWELL 

897 

cc 

FROM  V  TO  P  AND  WE  SAVED  THE  PATH  PARAMETERS  UHT.N,?)  AND  UP( 

UPWELL 

898 

cc 

IT.N ,2)  AS  UPV(IT.N)  AND  UPPV(IT.N).  NOW  ADD  PATH  PARAMETERS 

UPWELL 

899 

327 


cc 

FOR  SEGMENTS  SP  AND  PV.  NEED  BE  DONE  ONLY  FOR  K«L«1,  BUT  THEY 

UPWELL 

900 

cc 

HIST  BE  SAVED  IN  USPV  AND  UPSPV  ARRAYS. 

UPWELL 

901 

IF (  K  .GT.  1  )  GO  TO  42 

UPWELL 

90? 

IF (  L  .GT.  1  )  GO  TO  41 

UPWELL 

903 

DO  40  NN=1, NSPECS 

UPWELL 

904 

DO  40  LL-1,2 

UPWELL 

90S 

ccc 

UPWELL 

906 

cc 

ONLY  TWO  TEMPERATURES  (SINCE  SHELLS  LIMITS  THE  ATMOSPHERIC 

UPWELL 

907 

cc 

TEMPERATURE  TO  300  DES  K)  ARE  NEEDED  FOR  THE  AMBIENT 

UPWELL 

908 

cc 

ATMOSPHERE,  BUT  NTEMP  MUST  BE  CCT  TO  10  AND  NOT  TO  2  TO  BE 

UPWELL 

909 

cc 

CONSISTENT  WITH  THE  DIMENSIONING  OF  THE  U  AND  UP  ARRAYS  IN 

UPWELL 

910 

cc 

SUBROUTINE  TRANS.  THE  FIRST  HALVES  OF  THE  U  AND  UP  ARRAYS 

UPWELL 

9’] 

cc 

WERE  ZEROED  IN  TRNSCO.  TRANS  (STATEMENT  LABELED  30)  WILL 

UPWELL 

912 

cc 

DETECT  THE  ZERO  VALUES  OF  U  AND  UP  FOR  TEMPERATURE- INDEXES  3 

UPWELL 

913 

cc 

THROUGH  10  AND  WASTE  LITTLE  TIME  IN  COMPUTING  THE 

UPWELL 

914 

cc 

TRANSMITTANCE  FOR  ZERO  VALUES  Of  THE  PATH  PARAMETERS. 

UPWELL 

915 

ccc 

UPWELL 

916 

U  SPV(LL.NN)  -  U  PV(LL.NN)  +  U  PS(LL,NN,1) 

UPWELL 

917 

UPSPV(LL.NN)  -  UPPV(LL.NN)  ♦  UPPS(LL,NN,1 ) 

UPWELL 

918 

40 

CONTINUE 

UPWELL 

919 

WRITE(6.10«0) 

UPWELL 

920 

1040  FORMAT  (1H0.42X ,48H*  ♦  *  PATH  PARAMETERS.  SUN  TO  POINT  P  TO  V  *  * 

UPWELL 

921 

W45X,*(FROM  SUBROUTINE  UPWELL.  FORMATS  1040,1042)*/2X,*TEMPERATUR 

UPWELL 

922 

IE/SPECIES.  ((U  SPV(H.N) ,N»1 .NSPECS) ,M-1,2)*) 

WRITE(6.1026)  ((M,  (U  SPV(M,N)tN*l, NSPECS) ) ,M*1.2) 

UPWELL 

923 

UPWELL 

924 

WRITE(6,1042) 

UPWELL 

925 

104? 

FORMAT  (1H0,1X,*TEMPERATURE/SPECIES.  ((UPSPV(M.N).N-  ,HSPEC$).M= 

UPWELL 

926 

11.2)*) 

UPWELL 

927 

WRITE(6, 1026 )  <(M,  (UPSPV(M, N),N*1, NSPECS) ).M«1. 2) 

UPWELL 

928 

41 

CONTINUE 

UPWELL 

929 

CCCC 

UPWELL 

930 

CC 

ENTRY  TRANS1  IN  SUBROUTINE  TRANS  IS  PROVIDED  12/29/78  TO 

UPWELL 

931 

CC 

AVOID  CONFLICT  IN  SUBROUTINE  UPWELL  BETWEEN  THE  ARRAY  TRANS 

UPWELL 

93? 

CC 

IN  CO  WON  CLDWT  AND  THE  CALL  TO  SUBROUTINE  TRANS. 

UPWELL 

933 

cc 

NOTE.. .WE  ARE  CALLING  SUBROUTINE  TRANS  WITH  THE  ARRAY* 

UPWELL 

934 

cc 

USPV( 10,10)  AND  UPSPV(IO.IO)  WHICH  IS  SATISFACTORY  FOR 

UPWELL 

935 

cc 

SUBROUTINE  TRANS'  CURRENT  USE  OF  M  -  1  .  IN  GENERAL. 

UPWELL 

936 

cc 

SUBROUTINE  TRANS  EXPECTS  ARRAYS  U(1T,N,2)  AND  UP(IT,N.2)  WHEN 

UPWELL 

937 

cc 

BEING  CALLED  WITH  M«l. 

UPWELL 

938 

CALL  TRANS1(  NTEMP.  1,  USPV.  UPSPV,  FK,  WDL,  WDH,  TAU,  ABC. 

S  TMSPV(l),  TRN50PT.  FUPOS  ) 

UPWELL 

939 

UPWELL 

940 

CCCC 

UPWELL 

941 

CC 

TRANS  HAS  RETURNED  THE  TOTAL  MOLFCULAR  TRANSMITTANCE  TMSPV(L) 

UPWFLl 

94? 

cc 

FOR  THE  TOTAL  PAIR  ( SP*PV) ,  WITH  ACCOUNT  OF  NSPECS  SPECIES. 

UPWELL 

943 

cc 

UPWELL 

944 

cc 

GET  TOTAL  TRANSMITTANCE  BY  INCLUDING  AEROSOLS. 

UPWELL 

945 

cc 

USE  AEROSOL  TRANSMITTANCE  TASP(L)  FROM  SUBROUTINE  SURRAD  FOR 

UPWELL 

946 

cc 

PATH  SP  WITH  AEROSOL  TRANSMITTANCE  TAPV(L)  FROM  SUBROUTINE 

UPWELL 

947 

cc 

TRNSCO '$  CALL  TO  SUBROUTINE  ATMRAD  FOR  PATH  PV  TO  GET  THE 

UPWELL 

948 

cc 

AEROSOL  TRANSMITTANCE  FOR  THE  TOTAL  PATH  SPV-( SP+PV) . 

UPWELL 

949 

TTSPV(L)  -  TMSPV(L)  »  (TASP(L)  *  TAPV(L)) 

UPWELL 

950 

cc 

NOW  HAVE  TOTAL  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  FOR 

UPWELL 

951 

cc 

SURFACE-REFLECTED  SOLAR  RAY. 

UPWELL 

95? 

4? 

CONTINUE 

UPWELL 

953 

cc 

UPWELL 

954 

cc 

IN  FOLLOWING  EXPRESSION,  ONLY  RAD(2)  MAY  DEPENO  ON  AZIMUTH, 

UPWELL 

955 

cc 

WHICH  IT  WILL  FOR  NON-LA*ERTIAN  SURFACE  MATERIALS  (MSM.GT.  1 ) . 

UPWELL 

956 

328 


UPRAD(K.L)  •  UPRAD(K.L)  +  TTSPV(L)*RAD(2) 

CC  HOW  HAVE  TOTAL  UPWELLING  RADIANCE  DIRECTED  FROM  POINT  P 

CC  TO  POINT  V  (WITHOUT  ANY  CLOUDS),  THE  FIRST  TERM  BEING  THE  SUM 

CC  Of  THE  ATTENUATED  GROUND-SURFACE  EMISSION  AND  AIR  EMISSION 

CC  BETWEEN  POINTS  P  AND  V  AND  THE  SECOND  TERM  BEING  THE 

CC  ATTENUATED  SURFACE-REFLECTED  SOLAR  RAY. 

I F (  IJKL  ,£Q.  4  )  WRITE(6,IOS) 

105  FORMAT  (1H0.1X.*  IJICL  ZLAM 

i  RAD(  2)  TTSPV  TMSPV  TASP*) 

»ITE{6,106)  I,J.K.L,ZLAM,RAD(2),TTSPV(L),TMSPV(L).TASP(L) 

106  FORMAT  (2X,4I3,28X,1P5(E14.5)) 

IF (  CLDFG1.EQ.0.0  )  GO  TO  58 

CCC 

CC  ***  GOT  HERE  FOR  DAY,  WITH  CLOUDS  ******************************** 
CC  WE  MUST  CONVERT  THE  TRANSFER  COEFFICIENTS  TRANS  INTO 

CC  RADIANCES  FOR  THE  CLOUO-REFLECTEP  SOLAR  RADIATION.  TO  DO  SO, 

CC  WE  NEED  THE  SOLAR  SPECTRAL  1RRADIANCE  E  (WATTS/(CK**2  CH-1 ) ) 

CC  (NORMAL  TO  THE  PATH  TO  THE  SUN)  AT  THE  12-KM  ALTITUDE  POINT 

CC  ON  THE  V-TO-P  PATH.  HERE  WE  SHALL  USE  THE  VALUE,  SOLIRR(L)-E, 

CC  PREVIOUSLY  OBTAINED  BY  A  CALL  TO  SUBROUTINE  SOLRAD  FROM 

CC  SUBROUTINE  SURRAD  AND  AVAILABLE  TWOUGH  SOlARP  COMMON. 

CC 

CC  WE  ALSO  INCLUDE  AIR  TRANSMITTANCE  (TTSCY(L))  ABOVE  12-KM 

CC  ALTITUDE,  ALONG  THE  PATH  FROM  S  TO  C  TO  V.  TTSCV(L)  IS  GIVEN 

CC  BY  THE  PRODUCT  OF  THE  MOLECULAR  TRANSMITTANCE  (TMSCV(L))  AND 

CC  THE  AEROSOL  TRANSMITTANCE  (TASC(L)*TACV(L) ) . 

CC  TMSCV(L)  WILL  8E  COMPUTED  BY  SUBROUTINE  TRANS,  GIVEN  THE  PATH 

CC  PARAMETERS  USCV  AND  UPSCV.  FROM  TRNSCO'S  CALL  TO  PATH  WE  HAVE 

CC  THE  PATH  PARAMETERS  U(IT.N,2)  AND  UP(IT,N,2)  (WHICH  WE  SAVED 

CC  AS  UCV(IT.N)  ANO  UPCV(IT.N)  FOR  THE  PATH  FROM  POINT  V  TO  POINT 

CC  C.  THE  PATH  PARAMETERS  UCS(IT.N)  AND  UPCS(IT.N)  WERE  OBTAINED 

CC  WITH  THE  CALL  TO  SUBROUTINE  SURRAD. 

CC  ADD  THE  PATH  PARAMETERS  FOR  SEGMENTS  SC  AND  CV.  NEED  BE  DONE 

CC  ONLY  FOR  K-L-l.  BUT  THEY  MUST  BE  SAVED  IN  USCV  AND  UPSCV 

CC  ARRAYS. 

IF (  K  .GT.  1  )  GO  TO  50 

IF(  L  .GT.  1  )  GO  TO  45 

DO  44  NN*1. NSPECS 
DO  44  LL-1,2 

U  SCV(LL.NN)  -  U  CV(LL.NN)  ♦  U  CS(LL.NN) 

UPSCV(Ll.NN)  *  UPCV(LL.NN)  ♦  UPCS(LL.NN) 

44  CONTINUE 
WR[TE(6,1044) 

1044  FORMAT  (IH0.42X.48H*  *  •  PATH  PAR  ALTERS,  SUN  TO  POINT  C  TO  V  *  * 
W44X.*(FR0M  SUBROUTINE  UPWELL,  FORMATS  1044,1046)V2X,*TEMPERATUR 
IE/SPECIES.  ((U  SCV(M.N) ,N*1 .NSPECS) ,M*1,2)«) 

WRITE(6,1026)  ((M,  (U  SCV(N, N),N-1, NSPECS) ) ,N»1 ,2) 

WRITE(6,1046) 

1046  FORMAT  (1H0.1X,*TEMPERATURE/SPECIES.  ( (UPSCV(H.N) ,N-1, NSPECS) ,M- 

»,?)*) 

WR ITE(6 ,1026)  ((M,  (UPSCV(M,N),N*1, NSPECS)), M*l, 2) 

45  CONTINUE 

CC  NOTE... WE  ARE  CALLING  SUBROUTINE  TRANS  WITH  THE  ARRAYS 

CC  USCV(IO.IO)  AND  UPSCV(IO.IO)  WHICH  IS  SATISFACTORY  FOR 

CC  SUBROUTINE  TRANS'  CURRENT  USE  OF  M  ■  1  .  IN  GENERAL, 

CC  SUBROUTINE  TRANS  EXPECTS  ARRAYS  U(IT,N,2)  AND  UP(IT,N,2)  WHEN 

CC  BEING  CALLED  WITH  M*l. 


UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 

UPWELL 
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UPWELL 
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UPWELL 

UPWELL 

UPWELL 

UPWELL 
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UPWELL 

UPWELL 

UPWELL 

UPWFLL 

UPWELL 

UPWELL 

UPWELL 
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----- 


xsAi's/jpi.1 


957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 


I 


r 


i 

V  I 

i  i 


H 


\ 


CALL  TRANSH  NTEMP,  1,  USCV,  UPSCV.  FK.  WDL,  WDH,  TAU.  ABC. 

1  THSCVfL).  TRNSOPT,  FILPOS  1 

CC  TRANS  HAS  RETURNED  THE  TOTAL  MOLECULAR  TRANSMITTANCE  TMSCV(L) 

CC  FOR  THE  TOTAL  PATH  (SC*CV).  USE  AEROSOL  TRANSMITTANCE  TASC(L) 

CC  FROM  SUBROUTINE  SURRAO  FOR  PATH  SC  WITH  AEROSOL  TRANSMITTANCE 

CC  TACV(L)  FROM  TRNSCO'S  CALL  TO  SUBROUTINE  ATNRAD  FOR  PATH  CV  TO 

CC  GET  THE  AEROSOL  TRANSMITTANCE  FOR  THE  TOTAL  PATH  SCV-(SC+CV). 

TTSCV(L)  *  TMSCViL)  *  ( TASCfL )*TACV( L) ) 

CC  NOW  HAVE  TOTAL  MOLECULAR  AND  AEROSOL  TRANSMITTANCE  FOR  CLOUO- 

CC  REFLECTED  SOLAR  RAY. 

IF(  IKMJKL  .£0.  A  )  WRITE(6,107) 

107  FORMAT  (1H0.1X,*  I  J  K  L  ZLAM 

J  TTSCV  TMSCV  TASC*) 

WR1TE(6,104)  I,  J,K,L,ZLAM,n$CV(L) .TMSCV(L) ,TASC(L) 

CCC 

50  CONTINUE 

CC  NOW  GET  A  CONTRIBUTION  TO  THE  TOTAL  UPWELLING  RADIANCE 

CC  DIRECTED  FROM  POINT  C  TO  POINT  V,  THE  FIRST  TERM  BEING  THE 

CC  CLOUD-SURFACE  EMISSION  ATTENUATED  BETWEEN  POINTS  C  AND  V  AND 

CC  THE  SECOND  TERM  BEING  THE  ATTENUATED  CLOUD-REFLECTED  SOLAR 

CC  RAY. 

IX)  5?  M-l.NCOSET 

UPRADC(M)  *  UPRADC{M)  +  SOLIRR(L)  *  TRANS(M)  »  TTSCV(L) 

52  CONTINUE 


CC 

CC 

CC 

CC 

CC 

CC 

CC 


CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 

CC 


AT  THIS  POINT.  II  WILL  NORMALLY  BE  160  . 

SINCE  WE  ARF  ABOUT  TO  INCLUOF  THE  TWO-LEG  CFLOS.  WE  MUST 
MULTIPLY  THE  PROBABILITY  OF  THE  (NIGHTTIME)  ONE-LEG  CFLOS  BY 
THE  PROBABILITY  OF  NOT  HAVING  THE  SECOND  (DAYTIME)  LEG. 
WTC(II)  =  CFPV  *  (  1.  -  CFPS  ) 

INCLUDE  TWO-LEG  CFLOS 
II  =  II  ♦  1 

AT  THIS  POINT.  II  WILL  NORMALLY  BE  161  . 

UPRDCl(Il)  -  UPRADCt 1 1  —  1 ) 

UPRADC(U)  =  UPRADC(II-l)  -*■  RAD(2)  *  TTSPV(L) 

WTC(II)  *  CFPS  *  CFPV 
***  got  here  for  clouds,  day 
55  CONTINUE 


************************************* 


GOT  HERE  FOR  CLOUDS,  DAY  OR  NIGHT  ****«***♦***•♦♦***«****♦»♦•* 
SORT  THF  RADIANCE  ARRAY  UPRADC  IN  INCREASING  ORDER  AND  CARRY 
ALONG  THE  ARRAYS  UPRDC1  AND  WTC,  BEFORE  SORTING,  AUGMENT  THF 
THREE  ARRAYS  WITH  THE  MEMBERS  UPRADCI  Il+l )  «  0.0,  UPRDCl(IHl) 
■  0.0,  AND  WTC { 1 1*1 )  »  0.0,  RESPFCTIVELY.  DOING  THIS  ALLOWS 
SUBROUTINE  LINEAR  TO  INTERPOLATE  WITHIN  ITS  GIVEN  ARRAY  IF  THE 
WEIGHT  OF  THE  NORMALLY  SMALLEST  MEMBER  EXCEEDS  THE  SMALLEST 
0.10)  FOR  WHICH  AN  INTEGRAL -DISTRIBUTION  VALUE 


II 


FRACTILE  (NOW 
IS  REQUESTED. 
II  *  1 

AT  THIS  POINT 
DAY. 

UPRAOC(II)  -  0.0 
WTC(II)  «  0.0 
UPRDCl(II)  *  0.0 
IF (  (  I KM  .GE.  1 


II  WILL  NORMALLY  BE  161  FOR  NIGHT  AND  152  *0R 


1055  FORMAT  («0 


)  .AND.  (  I KM  .IE.  3  )  )  WRITEt 6, 1055) 

(UPRADC(N) .UPRDCltN) ,WTC(N) ,N*1 . 1 1 ) 

BEFORE  SORTING,  WE  HAVE  (FOR  M-1,16?)  THE  TRIPLETS  UP 


UPWEU 

1014 

UPWELL 

1015 

UPWELL 

1016 

UPWELL 

1017 

UPWELL 

101  s 

UPWELL 

1019 

UPWELL 

1020 

UPWFLL 

1021 

UPWELL 

1022 

UPWELL 

1023 

UPWELL 

1024 

UPWELL 

1025 

UPWELL 

1026 

UPWELL 

1027 

UPWELL 

1028 

UPWELL 

1029 

UPWELL 

1030 

UPWELL 

1031 

UPWELL 

1032 

UPWELL 

1033 

UPWELL 

1034 

UPWELL 

1035 

UPWELL 

1036 

UPWELL 

1037 

UPWELL 

1038 

UPWELL 

1039 

UPWELL 

1040 

UPWELL 

1041 

UPWELL 

1042 

UPWELL 

1043 

UPWELL 

1044 

UPWELL 

1045 

UPWELL 

1046 

UPWELL 

1047 

UPWELL 

1048 

UPWELL 

1049 

UPWELL 

1050 

UPWELL 

1053 

UPWELL 

105? 

UPWELL 

1053 

UPWELL 

1054 

UPWELL 

1055 

UPWELL 

1056 

UPWELL 

1057 

UPWELL 

1058 

UPWELL 

1059 

UPWELL 

1060 

UPWELL 

1061 

UPWELL 

106? 

UPWELL 

1063 

UPWELL 

1064 

UPWELL 

1066 

UPWELL 

1066 

UPWFLL 

1067 

UPWELL 

1068 

UPWELL 

1069 

UPWELL 

1070 

330 


IR  ADC  ( M ) ,  UPP.  DC  1  ( M ) ,  WTC  ( M )  " *  /  ( 5X ,  1 P9  El  2 . 4 ) ) 

UP  WELL 

1071 

CALL  SORTLJ(  UPRADC,  UPR0C1,  WTC,  11,  -1  ) 

UPWELL 

1072 

'"C 

SUM  THE  WEIGHTS  AND  NORMALIZE  THE  SUM  TO  UNITY. 

UPWELL 

1073 

DO  56  M-2.II 

UPWELL 

1074 

WTC(M)  *  WTC(M)  +  WTC ( M- 1 ) 

UPWELL 

1075 

56 

CONTINUE 

UPWELL 

1076 

WTCIIV  -  1.0/WTC(II) 

UPWELL 

1077 

00  57  M.1.II 

UPWELL 

1078 

WTC(M)  =  WTClIV*WrC(M) 

UPWELL 

1079 

57 

CONTINUE 

UPWELL 

1080 

I F {  (  I KM  .GE.  1  )  .AND.  (  1KM  ,LE,  3  )  )  WRITE(6,1056) 

UPWELL 

1081 

$  (UPRADC  (fl)  .UPRDCl  (N)  ,WTC [N)  ,N=1, 1 1) 

UPWELL 

1082 

1056 

FORMAT  (*0  AFTER  SORTING  AND  SUMMING  WEIGHTS,  WE  HAVE  FOR  M=l.l 

UPWELL 

1083 

$62)  THE  TRIPLETS  UPRADC(M) ,UPR0C1(M) .SUMWTC(M) =*/(SX ,1 P9E12.4) ) 

UPWELL 

1084 

CC 

INTERPOLATE  TO  OBTAIN  THE  INDICATED  PERCENTILES. 

UPWELL 

1085 

CC 

RESaT  IS  STORED  IN  RXXX(F,l). 

UPWELL 

1086 

CALL  LINEAR  0. 10, R010(K,L ) ,WTC  .UPRADC ,  II  ) 

UPWELL 

1087 

CALL  LINEAR  (  0. 25, R025(K ,L) .'.ETC, UPRADC ,  II  ) 

UPWELL 

1088 

CALL  LINEAR  (  0. 50,R050(K,L ) , WTC, UPRADC , 1 1  ) 

UPWELL 

1089 

CALL  LINEAR  (  0. 90,R090(K,L) ,WTC, UPRADC, I I  ) 

U°WELL 

1090 

R100(K,L)  *  UPRADC (II) 

UPWELL 

1091 

CC 

STATEMENT  58  IS  FOR  WAVENUMBER  LOOP  ON  INDEX  L 

UPWELL 

1092 

58 

CONTINUE 

UPWELL 

1093 

CC 

STATEMENT  60  IS  FOR  A2IKJTH  LOOP  ON  INDEX  X 

UPWELL 

1094 

60 

CONTINUE 

UPWELL 

1095 

CCC 

UPWELL 

1096 

CCC 

WRITE  OUT  UPRAD(K.L)  FOR  CURRENT  VALUE  OF  1 1  AND  JJ. 

UPWELL 

1097 

CCC 

WITE  OUT  RXXX(K.L)  FOR  CURRENT  VALUE  OF  II  AND  JJ,  ONLY 

UPWELL 

1098 

CCC 

IF  CLDFG1  *  1.0  . 

UPWELL 

1099 

WRITE(8)  ( (UPRAO (6,1 ) ,K=1 .NAZI ) ,L*1 .NWAVE J) 

UPWELL 

1100 

I F (  CL0FG1  .EQ.  1.0  )  WRITE(8)  ( ( (R010(K , L ) ,R0?5(K,L) ,R050(K ,L ) , 

UPWELL 

1101 

$  R090(K ,L) ,R100(K ,L ) ) ,  K-l.NAZI).  L-l.NWAVEJ) 

UPWELL 

no? 

CCC 

UPWELL 

1103 

CC 

COMPUTE  AVERAGES  OVER  AZIMUTH  ANGLES  K  AT  WAVENUMBERS 

UPWELL 

1104 

CC 

L*1,NWAVEJ,  NADIR  ANGLE  J,  AND  ALTITUDE  I. 

UPWELL 

1105 

FINAZ  -  1.0/FL0AT(NAZI) 

UPWELL 

1106 

DO  64  L-l.NWAVFJ 

UPWELL 

1107 

sum  -  0.0 

UPWELL 

1108 

DO  62  K=1,NAZI 

UPWELL 

1109 

sum  *  sum  *  uprad(k.l) 

UPWELL 

me 

62 

CONTINUE 

UPWELL 

mi 

UPRADA(I.J,L)  -  EINAZ*SUm 

UPWELL 

111? 

64 

CONTINUE 

UPWELL 

1113 

CCC 

UPWELL 

1114 

IF (  CLDFG1.EQ.0.0  )  GO  TO  70 

UPWELL 

1115 

IF[  I KM  .GT.  6  )  GO  TO  70 

UPWELL 

1116 

CCC 

UPWELL 

1117 

DO  68  L-l.MWAVEJ 

UPWELL 

1118 

R010KJ  •  0.0 

UPWELL 

1119 

R025KJ  ■  0.0 

UPWELL 

1120 

R050KJ  -  0.0 

UPWELL 

1121 

R090KJ  -  0.0 

UP  VEIL 

112? 

RIOOKJ  *  0.0 

UPWELL 

1123 

DO  66  K-l.NAZI 

UPWELL 

1124 

R010KJ  «  R010KJ  ♦  ROIO(K.L) 

UPWELL 

1125 

R025KJ  »  R025KJ  ♦  R025(K.L) 

UPWELL 

1126 

R05«J  ■  ROSOKJ  +  R050(K.L) 

UPWELL 

1127 
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R090KJ  •  FJ90KJ  ♦  R090(K,L) 

UPWELL 

1128 

R10CKJ  ■  R1OCK0  +  RIOO(K.L) 

UPWELL 

1129 

66  CONTINUE 

UPWELL 

1130 

CC  IKM  »  INDEX  FOR  ALTITUDES  EQUAL  TO  OR  GREATER  THAN  12. C  KM 

UPWELL 

1131 

CC  THEN  CLOUDS  ARE  INCLUDED. 

UPWELL 

1132 

RUlOAl IKM.J.L)  •  FINAZ*R010KJ 

UPWELL 

1133 

R02SA( IKM, J,L)  *  FINAZ*R025KJ 

UPWELL 

1134 

R050A( IKM.J.L)  *  FINAZ*ROSOKJ 

UPWELL 

1135 

R090A(IKM, J.L)  *  FINAZ*R090KJ 

UPWEL' 

1136 

RIOOAf IKM.J.L)  «  FINAZ*R100KJ 

UPWELL 

1137 

68  CONTINUE 

UPWELL 

1138 

CC  STATEMENT  70  IS  FOR  NACIR  LOOP  ON  INDEX  J 

UPWELL 

1139 

70  CONTINUE 

UPWELL 

1140 

CCC 

UPWELL 

1141 

CC  COMPUTE  AVERAGES  OVER  NADIR  ANGLES  J  AT  WAVENU»ERS 

UPWELL 

114? 

CC  L*1,NWAVEJ  AND  ALTITUDE  I. 

UPWELL 

1143 

F1NAD  -  1.0/FL0AT(NNADIR ) 

UPWEL  i. 

1144 

DO  74  L-l.NWAVEJ 

UPWELL 

1145 

sum  «  o.o 

UPWELL 

1146 

DO  72  J-l.NNADIR 

UPWELL 

n«’ 

sum  *  sum  +  uprada(i.o.l) 

UPWELL 

1149 

72  CONTINUE 

UPWELL 

1145 

UPRAON(I.L.JBAND)  «  FINAD*SUm 

UPWELL 

1150 

74  CONTINUE 

UPWELL 

1151 

CCC 

UPWELL 

1152 

IF(  CLDFG1 . EO.0.0  )  GO  TO  80 

UPWELL 

1153 

IF(  IKM  ,GT.  6  )  GO  TO  80 

UPWELL 

1154 

CCC 

UPWELL 

1155 

DO  78  L-l.NWAVEJ 

UPWELL 

1156 

ARCVKJ  -  0.0 

UPWELL 

1157 

RO10KJ  -  0.0 

UPWELL 

1158 

R025KJ  -  0.0 

UPWELL 

1159 

R050KJ  »  0.0 

UPWELL 

1160 

R090KJ  -  0.0 

UPWELL 

1161 

R100KJ  -  0.0 

UPWELL 

1162 

DO  76  J-l.NNADIR 

UPWELL 

1163 

ARCVKJ  -  ARCVKJ  +  ARCVA( IKM.J.L) 

UPWELL 

1164 

R010KJ  -  R010KJ  ♦  R010A( IKM.J.L) 

UPWELL 

1165 

R025KJ  -  R025KJ  ♦  R02SA( IKM, J.L ) 

UPWELL 

1166 

ROSOKJ  •  ROSOKJ  ♦  R050A( IKM.J.L ) 

UPWELL 

1167 

R090KJ  ■  R090KJ  +  R090A( IKM. J.L ) 

UPWELL 

1168 

R100KJ  -  R100KJ  ♦  R100A(  IKM.J.L) 

UPWELL 

1169 

76  CONTINUE 

UPWELL 

1170 

ARCVN(IKH.L)  *  FINAD*ARCVKJ 

UPWELL 

1171 

ROION(IKM.L)  •  FINAD*R010KJ 

UPWELL 

1172 

R025N( IKM.L)  •  FINA0*R02SKJ 

UPWELL 

1173 

R050N(IKM,L)  •  FINAD*RO50K J 

UPWELL 

1174 

R090N(IKM,L)  -  FINAD*R090KJ 

UPWELL 

1175 

RIOON(IKM.L)  ■  FINAD»R100KJ 

UPWELL 

1176 

CCC 

UPWELL 

1177 

CCC  THE  GRC  VERSION  INSERTS  THE  FOLLOWING  RE- SETTING  OF 

UPRADNf  I , 

UPWELL 

1178 

CCC  L.JBANO)  FOR  ALTITUOES  .GE.  12  KM  AND  IF  CLOUDS  ARE 

INCLUDED. 

UPWELL 

1179 

CCC  UPRADN{I,L.OBAND)  ■  R05ON(JKM,L)  ♦  ARCVN( IKM, 

,L) 

UPWELL 

1180 

CCC 

UPWELL 

1181 

78  CONTINUE 

UPWELL 

1182 

CC  STATE  PC  NT  80  IS  FOR  ALTITUDE  LOOP  ON  INDEX  I 

UPWELL 

1183 

80  CONTINUE 

UPWFLL 

1 1 84 

RETURN 

UPWELL 

1185 

ENC 

UPWELL 

1186 
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SUBROUTINE  VEIN  (  X,  A,  Y,  B,  2  ) 

VL  IN 

2 

c 

VLIN 

3 

c 

*VLIN*  FORMS  THE  LINEAR  COMBINATION  OF  TWO  VECTORS. 

VLIN 

A 

clj 

SUBROUTINE  VLIN  RETURNS  X(l-2)  -  A‘Y(l-3)  +  B*Z(l-3). 

VLIN 

5 

c 

VLIN 

6 

DIMENSION  X(3),  V  f  3 ) ,  Z(3) 

VLIN 

7 

X(l)  -  A  *  Y ( 1 )  *  3  *  Z(l) 

VLIN 

B 

X(2)  *  A  *  Y(2)  +  B  *  Z(2) 

VLIN 

9 

X(3)  -  A  *  Y{3)  *■  B  *  Z(3) 

VLIN 

10 

RETURN 

VLIN 

11 

END 

VLIN 

12 

C* 

XMIT 

XMIT 

2 

SUBROUTINE  XMIT  (  LX,  X,  Y  ) 

XMIT 

3 

C 

XMIT 

4 

C 

*XMIT*  COPIES  A  CORE  BLOCK  TO  ANOTHER  LOCATION. 

XMIT 

s 

C 

XMIT 

6 

CLJ 

A  GE  TEMPO  VERSION  OF  THE  6RC  ROUTINE  XMIT  WRITTEN  IN  COMPASS 

XMIT 

7 

CLJ 

LANGUAGE. 

XMIT 

8 

CLJ 

XMIT 

9 

CLJ 

INPUT  PARAMETERS 

XMIT 

10 

CLJ 

ARGUMENT  LIST 

XMIT 

11 

CLJ 

LX  ■  LENGTH  OF  ARRAY  X 

XMIT 

12 

CLJ 

X  *  THE  ARRAY  OR  CONSTANT  TO  BE  COPIED  INTO  ARRAY 

Y. 

XMIT 

13 

CLJ 

OUTPUT  PARAMETER 

XMIT 

14 

CLJ 

ARGUMENT  LIST 

XMIT 

IS 

CLJ 

Y  *  ARRAY ,  COPIED  FROM  ARRAY  X  IF  LX.GT.O,  AND 

SET 

XMIT 

16 

CLJ 

TO  A  CONSTANT  X(I)  IF  LX.LT.O  . 

XMIT 

17 

CLJ 

A  RETURN  OCCURS  IF  LX.EO.O  OR  IF  THE  ADDRESS  OF  X 

XMIT 

18 

CLJ 

EQUALS  THE  ADDRESS  OF  Y. 

XMIT 

19 

DIMENSION  X(l),  Y(1 ) 

XMIT 

20 

IF  (  LX  .IE.  0  j  GO  TO  6 

XMIT 

21 

CLJ 

LOCF,  A  FORTRAN  INTRINSIC  (INTEGER)  FUNCTION,  OBTAINS  THE 

XMIT 

2? 

CLJ 

ADDRESS  OF  A  VARIABLE.  ARRAT  ELEMENT,  OR  ENTRY  POINT  OF 

XMIT 

23 

CLJ 

EXTERNAL  SUBPROGRAM. 

XMIT 

24 

IF  (  LOCF (  X  )  -  LOCF (  T  )  )  3.  5,  1 

XMIT 

?S 

1 

DO  2  1*1, LX 

XMIT 

26 

2 

TCI)  *  X(I) 

XMIT 

27 

GO  TO  5 

XMIT 

28 

CLJ 

TUI 5  BRANCH  ALLOWS  SHIFTING  THE  FIRST  LX  MEMBERS  OF  ARRAY 

X  TO 

XMIT 

29 

CLJ 

START  AT  SOME  MEMBER  WHICH  LIES  WITHIN  THE  FIRST  LX  MEMBERS. 

XMIT 

30 

3 

K  -  LX 

XMIT 

31 

DO  4  1*1, LX 

XMIT 

3? 

Y(K)  •  X (K ) 

XMIT 

33 

4 

k.  -  K  -  1 

XMIT 

34 

5 

RETURN 

XMIT 

35 

6 

IF  (  LX  .EQ.  0  )  RETURN 

XMIT 

36 

LXX  *  -LX 

XM]T 

37 

00  7  I-l.LXX 

XM|T 

38 

7 

Y ( I )  *  X(l) 

XM]T 

39 

RETURN 

XMIT 

40 

END 

XMIT 

41 
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